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