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

##</code><code>##

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

##</code><code>##

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