perl -e "@m=split//,'AaBbEeFfMmNnPpQq'; @a=qw/1100 1010 1001 0110 0101 0011/; for$b(qw/0505 1441 0550 0145 4051/){ @c=split//,$b; for$d(@c){ push@e,split//,$a[$d]; } push @f,[@e]; @e=(); } for$g(0..2){ for$i(0..3){ for$j(0..3){ $k[$i+$j*4]…