Select Code to Download

perl -e '@a = qw(a, b, c);map { print "$_\n"; } @a'

a,
b,
c

perl -e '@a = qw(a b c);map { print "$_\n"; } @a'

a
b
c