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