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