Select Code to Download

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

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