sub R{@t=();$i=0,s/./$t[$i++].=$&/egfor@_;@t}$,="\n"; @_=R<>; for(@_){s/ //g;$x=length if$x