$_=' SSSSSS PPPPPPPP LL       OOOOOOOO     AA
     SS     PP    PP LL       OO    OO    AAAA
     SS     PP    PP LL       OO    OO   AA  AA
     SSSSSS PPPPPPPP LL       OO    OO  AA    AA
         SS PP       LL       OO    OO AAAAAAAAAA
         SS PP       LL       OO    OO AA      AA
     SSSSSS PP       LLLLLLLL OOOOOOOO AA      AA';
@_=split('',~/L/);print chr hex@_[~y/z//].@_[@_[~y/z//]],chr 0.714*ord substr($_,2,4)-1,chr@_[@_[0]]-@_[5],unpack(A2,$_),chr quotemeta "****"=~y/\*/*/*$_=~tr/L//,lc$&,chr@_[1]x2*5+1,unpack(A1,reverse$_);