Select Code to Download

#! perl -slw
use strict;
...

__DATA__
... from the OP

C:\test>1114833
{
...
  7 => { 1 => " ", 4 => "B", 6 => "I", 9 => "C", 11 => "C", 13 => "Y",
+ 16 => "D", 18 => "I", 20 => "T", 23 => "Z", 25 => "I", 28 => " ", 30
+ => " " },
  9 => { 1 => " ", 4 => " ", 6 => "N", 9 => " ", 11 => "K", 13 => "A",
+ 16 => " ", 18 => " ", 20 => " ", 23 => "L", 25 => " ", 28 => " ", 30
+ => " " },
}