Well, the most appreciated node by the long gone Abigail use the same comment style: maybe you should give him some credit?

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