Select Code to Download

#! /usr/bin/perl
use warnings ;
...
    print "'$key' => [$position{$key}[0],$position{$key}[1]],\n"
        if $position{$key};
}

'a' => [0,0],
'b' => [1,0],
...
'n' => [1,3],
'o' => [2,3],
'p' => [3,3],

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,