($tmp = $string) =~ s/foo/blah/;