$pattern = join '|', map quotemeta, keys %map;
$string =~ s/($pattern)/$map{ $1 }/go;  # /o only if the pattern never changes