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