In what way doesn't it work for you? Seems ok to me as far as this goes,

$ perl -e'$_="foo";s/^([a-z])/\u$1/;print'
Foo$
[download]

After Compline,
Zaxo