perl -F"\t" -nae 'next if ($_ == EOF and $. != 1); pop @F; print join "\t",@F,"\n";' file1 file2 file3 > file4