perl -lane '$,="\t"; print @F[0..4], "\t\t\t", @F[25..30]' file.txt #### print join "\t", @F[0..4], ('')x3, @F[25..30];