(my $foo = $bar) =~ s/this/that/;