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