> I'd probably have used
>
>
> replace($WORD, '^([^A]*)A', '$1E')
>

But that relies on doing a negative match, which is tricky to achieve it it's
more than one character you're trying to replace.

Michael Kay
Saxonica