http://qs321.pair.com?node_id=206018


in reply to Split loop error with perl 5.8

It works for me exactly as for grinder. My version:
julio@debian:~/perl$ perl  -v

This is perl, v5.8.0 built for i386-linux-thread-multi


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g