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