if ($str =~ s/boy/girl/) { # do this }