CREATE OR REPLACE TYPE mytabletype AS TABLE OF VARCHAR2 (255);
 
CREATE OR REPLACE FUNCTION str2tbl (
   p_str     IN   VARCHAR2,
   p_delim   IN   VARCHAR2 DEFAULT '.'
)
   RETURN mytabletype
AS
   l_str    LONG        DEFAULT p_str || p_delim;
   l_n      NUMBER;
   l_data   mytabletype := mytabletype ();
BEGIN
   LOOP
      l_n := INSTR (l_str, p_delim);
      EXIT WHEN (NVL (l_n, 0) = 0);
      l_data.EXTEND;
      l_data (l_data.COUNT) := LTRIM (RTRIM (SUBSTR (l_str, 1, l_n - 1)));
      l_str := SUBSTR (l_str, l_n + LENGTH (p_delim));
   END LOOP;
 
   RETURN l_data;
END;
/