Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
    print "$_: $map{$_}\t";
    print "\n" unless ++$c % 9;
}

Select or download this

A: &#1040;    B: &#1041;  V: &#1042;      G: &#1043;    D: &#1044;    
+E: &#1045;    +: &#1025;    J: &#1046;    Z: &#1047;
I: &#1048;    Y: &#1049;  K: &#1050;      L: &#1051;    M: &#1052;    
+N: &#1053;    O: &#1054;    P: &#1055;    R: &#1056;
...
l: &#1083;    m: &#1084;  n: &#1085;      o: &#1086;    p: &#1087;    
+r: &#1088;    s: &#1089;    t: &#1090;    u: &#1091;
f: &#1092;    h: &#1093;  c: &#1094;      x: &#1095;    1: &#1096;    
+2: &#1097;    3: &#1098;    4: &#1099;    5: &#1100;
6: &#1101;    7: &#1102;  8: &#1103;

Select or download this

#!/usr/bin/perl
use strict;
...
    print "$_: $map{$_}\t";
    print "\n" unless ++$c % 9;
}

Select or download this

A: &#65533;B: &#65533;      V: &#65533;G: &#65533;  D: &#65533;E: &#65
+533;        +: &#65533;J: &#65533;        Z: &#65533;
I: &#65533;    Y: &#65533;K: &#65533;        L: &#65533;M: &#65533;   
+     N: &#65533;O: &#65533;        P: &#65533;R: &#65533;
...
l: &#65533;    m: &#65533;n: &#65533;        o: &#65533;p: &#65533;   
+     r: &#65533;s: &#65533;        t: &#65533;u: &#65533;
f: &#65533;h: &#65533;      c: &#65533;x: &#65533;  1: &#65533;2: &#65
+533;        3: &#65533;4: &#65533;        5: &#65533;
6: &#65533;    7: &#65533;8: &#65533;