#!perl -lpa
$_=join$",map@a{@a{1..ord,@z}=(a..cr,@z=a1..h8),@F}=~/.[1-8]/g,XlushTKM=~/./g