sub foo { (my $text = $_[0]) =~ s/$_[1]/$_[2]->()/e;
          print $text; }

foo("This is test 1\n", qr/test (.*)/, sub{"fish $1"});