s/(-| |^)(.)/$1\u$2/g;

##</code><code>##

s/(-| |^|\()(.)/$1\u$2/g;