Looks like a winner! But I seem to be having some problems.

It seems to spin ad infinitum sucking up 80%+ CPU. (I let it go about 5 minutes before I sent a SIGINT.)

A quick run through the debugger seems to indicate it gets stuck on

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

Am I just being daft, or is there a __DATA__ block missing?

Follow-up: I was being daft. Make sure there are no blank lines after __END__. Doh!

Edit: chipmunk 2001-05-28