then do it like the first poster suggest:

( my $newstr = $str ) =~ s/(\$\w+)/$1/eeg;
[download]