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