Select Code to Download

my $regexp = 'some$thing';
my %values = (
...
print $regexp;
$regexp =~ s/\$(\w+)/$values{$1}/ge;
print $regexp;