Help for this page

Select Code to Download


  1. or download this
        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;
    }
  2. or download this
          utf8::upgrade($from);  # Use Unicode semantics
      s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;
  3. or download this
          utf8::upgrade($_);  # Use Unicode semantics
      s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;