$i=0,s/./$m[$i]=$&.$m[$i],$i++/gefor<>;print"$_\n"for@m