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