#!/usr/bin/perl

@t=("12","34","56","7 ","89",":h","er",";k","<t","=a","lc","ju","sn","op");
@m=split/ */,"\x00\x50\xA5\xd2\xc5\xbb\x96\xef\x06\xbc\x8e\xe0";

do{
  $n=$i++%8?$n:ord shift@m;
  $x=ord substr$t[$p],($n&128)>>7,1;
  $p=($x&240)==48?$x&15:0;
  !$p&&print chr$x;
  $n<<=1;
}until($i==91);