cuenta no. de caracteres y palabras en una string en PL/SQL

Requisito previo : introducción
a PL/SQL En el código PL/SQL, los grupos de comandos se organizan dentro de un bloque. Un grupo de bloques relacionado con declaraciones o sentencias. En declare part, declaramos variables y entre start y end part, realizamos las operaciones.

Dada una string y la tarea es contar el número de caracteres y palabras en la string dada.
Ejemplos:

Input: str = 'Geeks for geeks '
Output: Characters = 13 , Words = 3

Input: str = 'A Computer science portal'
Output: Characters = 22, Words = 4

El enfoque consiste en mantener dos variables de contador, es decir, una para los caracteres y la otra para las palabras. Comience a recorrer los caracteres uno por uno e incremente el conteo y cuando haya un espacio en blanco, incremente el conteo de palabras.
A continuación se muestra la implementación requerida:

DECLARE 
    -- Declare required variables 
    str       VARCHAR2(40) := 'Geeks for Geeks'; 
    noofchars NUMBER(4) := 0; 
    noofwords NUMBER(4) := 1; 
    s         CHAR; 
BEGIN 
    FOR i IN 1..Length(str) LOOP 
        s := Substr(str, i, 1); 
  
        -- Count no. of characters 
        noofchars := noofchars + 1; 
  
        -- Count no. of words 
        IF s = ' ' THEN 
          noofwords := noofwords + 1; 
        END IF; 
    END LOOP; 
  
    dbms_output.Put_line('No. of characters:' 
                         ||noofchars); 
  
    dbms_output.Put_line('No. of words: ' 
                         ||noofwords); 
END; 
-- Program End  

Producción :

No. of characters:15
No. of words: 3