y/1BER/ADTK/,($a.=<>)=~$_&&print$_.$"for aa..dz