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

##</code><code>##

bar
bar

##</code><code>##

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