perl -lne"length or ++$x and next; $x==1 or printf $/ x $x; $x=0; print"