s/(^|[^[:alpha:]])$from($|[^[:alpha:]])/$1$to$2/i;