($bar = $foo) =~ s/foo/bar/g;