#!perl -p
/T/?$r=$':s/.$r/T\n/,s/K */K x length$&/e