y/A-P/DCHS2-9TJQK/,($a.=<>)=~$_&&print$_.$"for AA..DZ