perl -ne'chomp;unshift@lines,[split//];$m=length if length>$m;END{for$c(0..$m-7){for$r(0..$#lines){print($lines[-$r][$m-$c]||" ")}print"\n"}}'