my $rxPattern;
{
    local $" = q{|};
    $rxPattern = qr{(?x)
       (@{ [ map { quotemeta } keys %map ] })
       };
}
$string =~ s{$rxPattern}{$map{$1}}g;