Update: by the time i posted this, jryan updated his post correctly :)

You also need the "i" modifier in the end, to match case-insensitive way.

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