Select Code to Download

perl -E '@arr=("a b",
    "c d",
    qw/e f g h a*/);
while (my $e = <@arr>) {
    say $e
}'

a
b
...
analytic
ascii.htm
aux-no-lex.lst