my $ns = '';
my @a = qw(one two 3 $ns five);
s/(\$.*)/$1/ee foreach @a;


##</code><code>##

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