perl -ple 's/\b(?<![-'])(\w)/\u$1/g'