RJosh, alternatively, you can do:

alias _upper return $regsubex($1-,/(?<=\A|\s)(.)/g,$upper(\1))

This does the same thing. It's shorter and doesn't require the $lower() identifier.