Select Code to Download

my %replacements = (...);
my $regex = join '|',
...
    s/($regex)/$replacements{$1}/g;
    print $_;
}