$n=q y$$YVAR;;y;$q=$n=~y%$N-ZA-M;%_A-Z_%;;print map{eval join$/,(map{
";#"}(2..$_)),qq@\$p=$n@;chr$p+$q}qw&64 93 100 100 103 24 111 103 106 100 
92 25 2&