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