# Check for some special types of dates (next, prev)
    foreach $from (keys %{ $Lang{$L}{"Repl"} }) {
      $to=$Lang{$L}{"Repl"}{$from};
      s/(^|[^a-z])$from($|[^a-z])/$1$to$2/i;
    }

##</code><code>##

  ...
  #$$d{"replace"} =["m","Monat"];
  $$d{"replace"} =[];