perl -lanE'say join"\t",@F[0..2]' file.txt