#!perl -pl
@x=a1..$_;$_="@{[(a1..h8)[grep!/-|8|9/,map@x-88+ord,Oclj_KBD=~/./g]]}"