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