Select Code to Download

my $re = join "|", map { quotemeta $_ } keys %entitylist;
$re = qr/(?:$re)/;
...
# ...

$string =~ s/($re)/$entitylist{ $1 }/ge;