$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