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