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