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