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

s/frog/toad/g, s/man/boy/, s/woman/girl/, print for ($foo);

__END__
A woboy and a man saw a toad by the pond