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