Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
      s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;
    }    
    print "after:  $_\n";
    
  2. or download this
    before: Mär
    after:  Monatär
    
  3. or download this
      s/(^|[^\p{IsAlpha}])$from($|[^\p{IsAlpha}])/$1$to$2/i;
    
  4. or download this
    before: Mär
    after:  Mär