foreach $from (keys %{ $Lang{$L}{"Repl"} }) {
      $to=$Lang{$L}{"Repl"}{$from};

      utf8::upgrade($from);  # Use Unicode semantics for \b
      s/\b$from\b/$to/i;
    }

##</code><code>##

      utf8::upgrade($from);  # Use Unicode semantics
      s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;

##</code><code>##

      utf8::upgrade($_);  # Use Unicode semantics
      s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;