$ perl 
$_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH 
HJHAHA}}; 
\s+\s++s+y?JAPH?0-3?; 
s;(.)(.)(.); 
        (map { ord > 0130 
               ? uc 
               : () , uc } 
         q{KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj}=~/./g)[$1*16+$2*4+$3]; 
      eg; 
Bareword found where operator expected at - line 9, near "eg" 
  (Might be a runaway multi-line ;; string starting on line 4) 
        (Missing semicolon on previous line?)