Perhaps this would work? (warning un-tested):

s/([\w']+)/\u\L$1/g;

The idea is to put any characters that will cause an uppercase inside the brackets along with the \w (you could put in underscores and dashes too, if appropriate).

G'Luck
Gryn