perl -lejoin('',1..pop)=~'(.).*(.).*(.).*(.).*(.).*(.)(?{print$1,$2,$3,$4,$5,$6})(?!)' 9