Oh, and since you mentioned some intrigue as to the function of the regex, here's what it does:

1. It matches as many letters as it can that don't start one of the forbidden words.
2. Then it matches one of those letters, so long as it isn't followed by the rest of the word.
3. Then it matches as many non-bad letters as it can.
4. Go to step 2 if you can.

Friedl would call this "unrolling the loop".

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;