elixir, 103 bytes

Result

AC

Duration

1737ms

Code [DL]

f=fn s,i,j,f->t=IO.getn s,1
(j||i>0)&&f.(i<50&&j&&t||1,i<50&&t<"T"&&i+1||0,j&&"K"!=t,f)end
f.("",0,0,f)

stdin

                                    T             
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                 K                

stdout

                                    T             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                    1             
                                 K111

stderr

strace