my @strings = split "\t", $line;
my @keep    = grep { length($_) >= 0 } @strings;