Select Code to Download

#!/usr/bin/perl

...
  s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;
}    
print "after:  $_\n";

before: Mär
after:  Monatär

  s/(^|[^\p{IsAlpha}])$from($|[^\p{IsAlpha}])/$1$to$2/i;

before: Mär
after:  Mär