perl -aF/\s+/ -lne"print join qq(\t),splice(@F,0,2) while @F" t.txt