$_ = "A man and a woman saw a frog by the pond\n";
s/frog/toad/g, s/man/boy/, s/woman/girl/, print $foo = $_;