DB<1> main::(./japh3.pl:20): @t=unpack"C*",do{local($/);<DATA>}){my$t=0;{$t[0]==126 DB<1> main::(./japh3.pl:20): @t=unpack"C*",do{local($/);<DATA>}){my$t=0;{$t[0]==126 DB<1> etc. etc. etc.