my @a = grep {s/^''$//;1} qw(one two 3 '' four five);