Help for this page

Select Code to Download


  1. or download this
    my$japh=q=815011301080222181506122815080025141102202911201=;
$[=1;my@a=(q,a,..q,u,,q, ,);
$_.=$a[join'',chop$japh,chop$japh]while length$japh; 
print;
  2. or download this
    $_=q=815011301080222181506122815080025141102202911201=;
$[=1;
@_=(q,a,..q,u,,q, ,);
print$_[chop().chop()]while$_
  3. or download this
      $_=unpack'w*','Ÿ¢ŽÞ»Ðªè„Ž¦åŠ™ÿܽƅŽŽËr'
  if@_=('a'..'u',' ');print$_[chop().chop()]
  while$_