perl -ane 'print  join ("\t",splice(@F, 1 ,1),@F ), "\n"' YourFileName.txt