substr($str,8,1) = uc(substr($str,8,1));