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

##</code><code>##

$_=q=815011301080222181506122815080025141102202911201=;
$[=1;
@_=(q,a,..q,u,,q, ,);
print$_[chop().chop()]while$_

##</code><code>##

  $_=unpack'w*','Ÿ¢ŽÞ»Ðªè„Ž¦åŠ™ÿܽƅŽŽËr'
  if@_=('a'..'u',' ');print$_[chop().chop()]
  while$_