C:\test>perl -E"printf( STDERR qq[\r$_] ), say 'X'x127 for 1 ... 1e6" | perl -nE"sleep 100"
96

##</code><code>##

for /l %i in (1,1,8) do @perl -F"\t" -anle"print join chr(9), @F[2,0,5]" in%i.tsv > out%i.tsv