You can skip the /e modifier by using the \u escape. And you don't need to capture the whole word; the first letter will do.

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

-sauoq
"My two cents aren't worth a dime.";