SQL процедура

WITH xx AS (
    SELECT TRIM(regexp_replace(' мы  хорошо '||chr(9)||' живем '||chr(10),'\s+',' ')) str -- убираем повторные пробельные символы
    FROM dual
    )
,  yy AS (
    SELECT regexp_count(str,' ')+1 n_max        -- считаем число слов
    FROM xx
    )
,  zz AS (
    SELECT LEVEL n FROM dual, yy
    CONNECT BY LEVEL <=yy.n_max                 -- формируем номера строк
    )
SELECT TRIM(to_char(regexp_replace(regexp_replace(xmltype.getclobval(xmlagg(xmltype(word))),'<z>|</z>',' '),'\s+',' ')))
FROM (
SELECT '<z>'|| CASE WHEN zz IS NULL THEN word
               ELSE TRIM(nn) END||'</z>' word, n                -- разворачиваем новые слова по строкам
FROM (       
SELECT n, word, 
       REGEXP_SUBSTR(LOWER(word),'([о]).*\1', 1,1) zz,          --  проверяем наличие не менее двух "о"
       LENGTH(word) nn
FROM (
SELECT zz.n, regexp_substr(xx.str,'[^ ]+',1,zz.n)  word         --  достаем слова
FROM xx, zz
WHERE n<10
)) ORDER BY n )
;

WITH xx AS (
    SELECT TRIM(regexp_replace(' мы  хорошо '||chr(9)||' живем '||chr(10),'\s+',' ')) str -- убираем повторные пробельные символы
    FROM dual
    )
,  yy AS (
    SELECT regexp_count(str,' ')+1 n_max        -- считаем число слов
    FROM xx
    )
,  zz AS (
    SELECT LEVEL n, yy.n_max
    FROM dual, yy
    CONNECT BY LEVEL <=yy.n_max                 -- формируем номера строк
    )
SELECT TRIM(to_char(regexp_replace(regexp_replace(xmltype.getclobval(xmlagg(xmltype(word))),'<йЙ>|</йЙ>',' '),'\s+',' ')))
FROM (
SELECT '<йЙ>'|| CASE WHEN zz IS NULL THEN word
               ELSE TRIM(nn) END||'</йЙ>' word, n                -- разворачиваем новые слова по строкам
FROM (       
SELECT n, word, 
       REGEXP_SUBSTR(LOWER(word),'([о]).*\1', 1,1) zz,          --  проверяем наличие не менее двух "о"
       LENGTH(word) nn
FROM (
SELECT zz.n, regexp_substr(xx.str,'[^ ]+',1,zz.n)  word         --  достаем слова
FROM xx, zz
WHERE n<=zz.n_max
)) ORDER BY n )
;