in reply to Re: RegEx to match at least one non-adjacent term
in thread RegEx to match at least one non-adjacent term

Doesn't work?
$ echo "12345Red6789" | perl -ape 's/[\s\(]+(r|rd|red)[\s\)]+//gi;' 12345Red6789

The OP said the spaces were optional.