RegexpWrapper.pl

use v5.10;
use warnings;
use Data::Dumper;

my %h;

sub wrap {
  my ($str, $re,$replace) = @_;
  unless (%h) {
    END {say Dumper %h}
  }
  $h{$re} += $str =~ s/$re/$replace/;
  return $str;
}

my @lines = qw(foo bar baz);
for (@lines) {
  $_ = wrap($_, qr{foo}, 'lorem');
  $_ = wrap($_, qr{bazzz}, 'ipsum');
}

say Dumper @lines;