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