1  $_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH
 
HJHAHA}}; 
 
   2  \s+\s++s+y?JAPH?0-3?; 
 
   3  s;(.)(.)(.);(map{ord>0130?uc:(),uc}q{KnKttiIMRsROhOppllrr y ssLfL cWEdEaau
ujj}=~/./g)[$1*16+$2*4+$3];eg; 
 
   4  s;\w+;\L\u$&;g; 
 
   5  {print}