Select Code to Download

use strict;
my %repl = (
...
$string =~ s/($search)/$repl{$1}/ge; 

print "$string\n";