my $search = 'foo(.*?)bar'; my $replace = 'wibble$1wobble';
my $search = qr/foo(.*?)bar/; my $replace = sub{ "wibble$1wobble" }; s/$search/&$replace/eg;
my $search_and_replace = sub { s/foo(.*?)bar/wibble$1wobble/; }; &$search_and_replace;
next