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