$search = qr/pattern/;

##</code><code>##

    s/$search/replace/g;

##</code><code>##

my $rep = sub { $_[0] =~ s/a/b/g };

my $string = "abc";
$rep->($string);
print "$string\n";