my @keep = grep length, split "\t", $line;