while (<STDIN>) {
    tr/\r\n//d;  # even better than chomp!
    print join( "\t", ( split /\t/ )[@ARGV] ), "\n";
}

##</code><code>##

while(<STDIN>) {
    last if /\t/;
}
die "No tab-delimited fields found\n" unless ( /\t/ );