Select Code to Download

$ perl -Mstrict -Mwarnings -e '
    my @array = "a" .. "z";
...
    print $array[$_] for grep { ! (($_ + 1) % $n) } 0 .. $#array;
'
jt

$ perl -Mstrict -Mwarnings -e '
    my @array = "a" .. "z";
...
abcdefghij
klmnopqrst
uvwxyz