y/B-Z/C2-9TJQK/,($a.=<>)=~$_&&print$_.$"for AA..ZZ