s/./$a[pos].=$&/gefor<>,$,=$/;print@a