Select Code to Download

#! perl -slw
use strict;
...
2b#
2b*
2b&

my @lists = ( [ 1, 2 ], [ qw[ a b ] ], [ qw[ # * & ] ] );

nFor {
    print join '', map $lists[ $_ ][ $_[ $_ ] ], 0 .. $#_;
} map scalar @$_, @lists;