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