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

##</code><code>##

    func do {(my $tmp = $string) =~ s/foo/blah; $tmp};

##</code><code>##

    func do {local $_ = $string; s/foo/blah; $_};