> - This one is going to take a *little* longer to fill up your memory > but given infinite time this should do just fine. ;)
This one seems to fill up memory fast and is pretty simple loop: do$0 -- Marko P. Nippula <[EMAIL PROTECTED]>, WWW: http://www.hut.fi/~mnippula/ perl -0777pse '$k="�ZWOK";if(s/$k$//){s/�(.)(.)/substr("$`�",-ord($1) -ord$2,ord$2)/esg}else{s/�/�\000\001/g;s/(?<!(?:�.|.�))([^�]{3,255})\ ([^�]{0,254}?)\1/"$1$2�".chr(1+length$2).chr(length$1)/sge;$_.=$k}'
