$ perl 
$_='HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH 
HJHAHA'; 
tr/JAPH/0123/; 
print; 
__END__ 
330321210010200311001103013102303132203113300030223230102311231003 
303131