for(<>){chomp;@L=split//;$L[$_]ne' '&&unshift@{$C[$_]},$L[$_]for 0..$#L}$M=@{(sort{@$b<=>@$a}@C)[0]};for(;$M-->0;){print$C[$_][$M]||' 'for 0..$#L;print"\n"}