Help for this page
while(<DATA>){chomp;for(0..(@f = split'')){print' 'x hex$f[0],"\cB"x h +ex$f[1];splice(@f,0,2)}print "\n";} ... 111211114341211422 1121111121116121112122 112111222433212122