Select Code to Download

$ perl
my @a = qw/a b c d e/;
...
printthese( [ @a[0, 2, 4] ]);
^D
a, c, e

$ perl
my @a = qw/1 2 3 4 5/;
...
print "\n";
^D
0, 2, 0, 4, 0