$text =~ s/(\$\w+)/$1/eeg;
print $text;
__END__
Mary had a little wolf.