$ perl 
$_='HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH 
HJHAHA'; \s+\s++s+y?JAPH?0-3?; 
print; 
__END__ 
330321210010200311001103013102303132203113300030223230102311231003303131