for ( $foo ) {
  s/frog/toad/g;
  s/man/boy/;
  s/woman/girl/;
}