This and this should make it a bit clearer.print$",join$",@a=split//,"STKPWHRAO*EUFRPBLGTSDZ$/";$_="Uf VWYABV^PZ +A`" ;s#.#print$",((vec pack(v,($t=ord$&)-($t>85?86:0)),$_,1)?$a[$c+$_]:$") +for 0..6;$c=$c-14?$c+7:!print map{s/./chr(ord($&)+32)/eg;" -$_$/"}@z=qw{* +53 !. /62 052, (!+2}[$d++]#eg
|
|---|