Fixed simple answer

my $search = 'foo(.*?)bar';
my $replace = 'wibble$1wobble';

s{$search}{
   chop( my $s = eval "<<_END_\n$replace\n_END_" );
   die $@ if $@;
   $s;
}eg;