create or replace type strsplit_type as object (str_split varchar2(64));
create or replace type strsplit_tab IS table of strsplit_type;
create or replace function strsplit(p_value varchar2, p_split varchar2 ) return strsplit_tab pipelined
is
v_idx integer;
v_str strsplit_type;
v_strs_last varchar2(4000) := p_value;
begin
loop
v_idx := instr(v_strs_last, p_split);
exit when v_idx = 0;
v_str := substr(v_strs_last, 1, v_idx - 1);
v_strs_last := substr(v_strs_last, v_idx + 1);
pipe row(v_str);
end loop;
pipe row(v_strs_last);
return;
end strsplit;