my$japh=q=815011301080222181506122815080025141102202911201=;
$[=1;my@a=(q,a,..q,u,,q, ,);
$_.=$a[join'',chop$japh,chop$japh]while length$japh; 
print;