substr($s, 0, 1, uc(substr($s, 0, 1)));

##</code><code>##

substr($s, 0, 1) = uc(substr($s, 0, 1));