Select Code to Download

my $foo  = "A man and a woman saw a frog by the pond\n";

...
__END__
A boy and a girl saw a toad by the pond

s/\bfrog\b/toad/g, s/\bman\b/boy/, s/\bwoman\b/girl/, print for $foo;