my $foo = "foo";
print map {s/foo/bar/g; $_} do{$foo};
print "\n$foo\n";