perl -sane 'print  join ("\t",splice(@F, $COL-1 ,1),@F ), "\n"' -- -COL=2  YourFileName.txt