David Carlisle provided these simpler replace() functions for obtaining the
first occurrence of pattern in WORD:

replace($WORD, '^(.*?)A', '$1E')
replace($WORD, '^([^A]*)A', '$1E')

Awesome.

Thank you, David.