@Sunslayer;

$regsubex($1-,/(\w)(.+?)(\W)/g,$+($upper(\1),$lower(\2),\3))

will capitalize the first letter and make the rest of the word lowercase for each word which looks better imo

I'm not really sure why you had to use (.+)(\W|\b). You should have only needed two backreferences at most.

alias _upper return $regsubex($1-,/(\w)(\w+)/g,$upper(\1) $+ $lower(\2))