Select Code to Download

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

bar
bar

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