Select Code to Download

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

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