Separar um texto após determinado caracter

Query para separar um texto após determinado caracter

select REGEXP_SUBSTR(str, exp, 1, level) lista

from (select 'BRASIL|CAMPEAO|DO|MUNDO' str, '[^|]+' exp 

      from dual) 

connect by REGEXP_SUBSTR(str, exp, 1, level) is not null;