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