Select Code to Download

$ perl -MO=Deparse -e '@a=qw/a b c/; print while <@a>'
@a = ('a', 'b', 'c');
use File::Glob ();
print $_ while defined($_ = glob(join($", @a)));
-e syntax OK

$ perl -le '@a=qw/a b c/; print while <@a>'
a
b
c