$keys     = join '|', map "\\b\Q$_\E\\b", keys %sub_hash;
  $keys_REx = qr/$keys/;
  $string   =~ s/($keys_REx)/$sub_hash{$1}/g;