#!/usr/bin/perl -w use strict;
$_="P74117115116E32H65110111116104101114R32P80101114108L32H72P97X99107101114";
for(m{(.{3})}g){y$0-9$$cd;print chr($_);}print chr(((2+3)*(32-12)/4)-(3*4+3));