Select Code to Download

my %repl= ( frog=>"toad", man=>"boy", woman=>"girl" );
$foo =~ s/(frog|man|woman)/$repl($1)/g;

my $re= join "|", map quotemeta($_), keys %repl;