my $foo; 
($foo = $bar) =~ s/baz/qux/;

##</code><code>##

my $foo = $bar; 
$bar =~ s/baz/qux/;