<>;$a=<>;y/A-P/DCHSA23456789TJQK/,$a=~$_&&print$_.$"for AA..DZ