Converting Comma separated value string into a rows(Table)

FUNCTION POS_DELIMSTR2TAB(p_list IN VARCHAR2)
    RETURN POS_NUM_TYPE
  PIPELINED
 AS
    l_string       LONG := p_list || ',';
    l_comma_index  PLS_INTEGER;
    l_index        PLS_INTEGER := 1;
  BEGIN
    LOOP
      l_comma_index := INSTR(l_string, ',', l_index);
      EXIT WHEN l_comma_index = 0;
      PIPE ROW ( SUBSTR(l_string, l_index, l_comma_index - l_index) );
       l_index := l_comma_index + 1;
     END LOOP;
     RETURN;
END POS_DELIMSTR2TAB;