select
REGEXP_REPLACE(
REGEXP_REPLACE(
  substr(phraze,REGEXP_INSTR(substr(phraze,1,indx-1),'[.?!]',1, decode(rownum-1,0,1,rownum-1))+1,
  indx-REGEXP_INSTR(substr(phraze,1,indx-1),'[.?!]',1, decode(rownum-1,0,1,rownum-1))),
  '(зеленые яблоки){1,}', 'красные груши', 1, 0, 'i'),
  '(яблоки зеленые){1,}', 'красные груши', 1, 0, 'i' )
 from (
 with phraze as
(select 'Кому яблоки? Красивые спелые яблоки! Мне зеленых яблок.Зеленые.'||
' Яблоки кислы. Зеленые яблоки кислые! Яблоки зеленые полезные?' phraze
from dual)
select level indx, p.phraze, substr(phraze, level ,1) letter
 from dual d, phraze p
 connect by level<= length(p.phraze))
where letter in ('.','?','!') or indx = length(phraze)