Select Code to Download

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

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

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