$_ = $foo; s/frog/toad/g; s/man/boy/; s/woman/girl/;