$_=`dd`;/T/;s/(?<=\n.{$-[0]}) /T/g;s/K */"K"x length$&/ge;print