Select Code to Download

N 68 115 79 127 0
K 120 115 128 127 0
...
Y 269 15 278 27 0
U 295 15 305 27 0
E 320 15 327 27 0

for my $line (split "\n", $boxdata) {
    my ($chr, $x1, $y1, $x2, $y2, $page) = $line =~ m{
       ^ (\S) \ (\d+) \ (\d+) \ (\d+) \ (\d+) \ (\d+) $
    }x;
}

my @grid = (
    [split '', '  N KA   L   '],
...
        [12] "E"
    ]
]