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