$Data =~ s/(\$[a-z\_]\w*)/eval($1)/egi;
</pre>
Don't worry, this is still secure even with the eval.
If your brave, why not also include hashes and arrays in your swaps like the following:
<pre>
$Data =~ s/(\$[a-z\_][\w\{\}\[\]]*)/eval($1)/egi;