( my $newstr = $str ) =~ s/(\$\w+)/$1/eeg; [download]
In reply to Re^3: Interpolating variables in a string by borisz in thread Interpolating variables in a string by saintmike