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