Nice. I'm sure it can easily be shortened some more.

Without even understanding what it does, it seems pretty clear
that we can shave 2 bytes by changing:

  $_='while(read+STDIN,$_,2048){

into

  $_='$/=\2048;while(<STDIN>){


Any more obvious shavings?

 .robin.

-- 
Satan, oscillate my metallic sonatas!

Reply via email to