$_='fred'; s/^([a-z])/\u$1/; print;
Fred