perl -pane 'print "$F[0]\t$F[1]\t$F[2]";' file1.txt