Select Code to Download

my $search_for = join '|', map quotemeta, keys %replace;
...
s/\$($search_for)/$replace{$1}/g;