Tell split not to remove empty trailing fields.

my @line_split = split(/\t/, $line, -1);
[download]

And if you want, you can check if you got enough fields

if (@line_split != 3) {
   die("Not enough fields in line $.\n");
}
[download]