Don't use tr///. Use s/// with a /e modifier and uc().

perl -le '$_="cap this. not this."; s/([^.]*)/uc $1/e; print'
[download]

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