with
  t as (
    select 'bad girls, bad boys,bad phone. phone phone mam: phone phone?' s
    from dual union all
    select 'wup, wup, BORAK OBAMA OBAMA MAMA; it is OBAMA .'
    from dual union all
    select 'hustone, we have a problem, big problem. Very big, big, big'
    from dual union all
    select 'high cost - high perfomance, high'
    from dual union all
    select 'full-hd,tv-full,full-hd:full-hd'
    from dual
  )
select *
from t
where regexp_like(
        s, '(^|[^a-z])([a-z]{2,})[^.]*\.(.*[^a-z])?\2([^a-z]|$)', 'i'
      );

with
  t as (
    select 'bad girls, bad boys,bad phone. phone phone mam: phone phone?' s from dual
    union all
    select 'wup, wup, BORAK OBAMA OBAMA MAMA; it is OBAMA .' from dual
    union all
    select 'hustone, we have a problem, big problem. Very big, big, big' from dual
    union all
    select 'hustone, we have a problem, big problem. Very big, bi...' from dual
    union all
    select 'high cost - high perfomance, high' from dual
    union all
    select 'full-hd,tv-full,full-hd:full-hd' from dual
  )
select *
from t
where regexp_like(
        s, '(^|[^a-z])([a-z]{2,})[^.]*\.((.*[^a-z])?\2([^a-z]|$)){2,}', 'i'
      )

with
  t as (
    select 'bad girls, bad boys,bad phone. phone phone mam: phone phone? ' s from dual
    union all
    select 'wup, wup, BORAK OBAMA OBAMA MAMA; it is OBAMA . ' from dual
    union all
    select 'hustone, we have a problem, big problem. Very big, big, big' from dual
    union all
    select 'high cost - high perfomance, high ' from dual
    union all
    select 'full-hd,tv-full,full-hd:full-hd' from dual
    union all
    select 'В лесу родилась елочка. В лесу,лесу-лесу,лесу она росла. В лесу, лесу' from dual
    union all
    select 'В лесу родилась елочка. В лесу,лесу она росла' from dual
  )
select *
from t
where regexp_like(s,
                  q'~(^|[^[:alpha:]-])
                     ([[:alpha:]]([[:alpha:]]*-)?[[:alpha:]]+)
                     [,.;:?![[:space:]]\2
                     ([^[:alpha:]-]|$)~',
                  'x');

with
  t as (
    select '1 Мама мама мама , мама- мама- ' s from dual
    union all
    select '2 мимо мима мими , мимо-мимо , мимо-мимо.' from dual
    union all
    select '3 Назад вперёд вверх вниз. Вверх вниз' from dual
    union all
    select '4 Семь восемь. Семь семь' from dual
  )
select *
from t
where regexp_like(s,
                  q'~(^|[^[:alpha:]-])
                     ([[:alpha:]]([[:alpha:]]*-)?[[:alpha:]]+)
                     [,.;:?![[:space:]]+\2
                     ([^[:alpha:]-]|$)~',
                  'ix');

with
  t as (
    select '1 Мама мама мама , мама- мама- ' s from dual
    union all
    select '2 мимо мима мими , мимо-мимо , мимо-мимо.' from dual
    union all
    select '3 Назад вперёд вверх вниз. Вверх вниз' from dual
    union all
    select '4 Семь восемь. Семь семь' from dual
  )
select *
from t
where regexp_like(s,
                  q'~([^[:alpha:]-]|^)
                     (
                       [[:alpha:]]{2,}(-[[:alpha:]]{2,})?|
                       -[[:alpha:]]{2,}|
                       [[:alpha:]]{2,}-
                     )
                     [^[:alpha:]-]
                     ((.*?[^[:alpha:]-])?\2([^[:alpha:]-]|$)){2}~',
                  'ix');

with
  t as (
    select 'Надо надо надо. // должен вывести' s from dual union all
    select 'Надо-надо надо надо надо-надо. // не должен вывести' from dual union all
    select 'Надо -надо надо- // не должен вывести' from dual union all
    select 'Надо-надо надо. // не должен вывести' from dual union all
    select 'Надо-надо надо надо-надо надо надо- ненадо надо- надо-ело. // не должен вывести' from dual union all
    select 'Надо-надо надо надо-надо надо надо-надо. // должен вывести' from dual union all
    select 'Надо надо- — надо- надо — надо-надо — надо-надо. // не должен вывести' from dual union all
    select 'Надо- надо-надо — надо- надо — надо-надо — надо-надо // должен вывести' from dual union all
    select 'Я гиря я. // не должен вывести' from dual union all
    select 'Я гиря гиря я. // не должен вывести' from dual union all
    select 'Я гиря я гиря я. // должен вывести' from dual union all
    select 'Я. Я я. // не должен вывести' from dual union all
    select 'Я я я // должен вывести' from dual union all
    select 'Я. Я мясо Я. я Я. // не должен вывести' from dual union all
    select 'позвони позвони позвонишь? // не должен вывести' from dual union all
    select 'позвони позвонишь позвони? // не должен вывести' from dual union all
    select 'позвони позвони позвон? // не должен вывести' from dual
  )
select *
from t
where regexp_like(s,
                  q'~(^|[^[:alpha:]-])
                     ([[:alpha:]]+(-[[:alpha:]]*)?|-[[:alpha:]]+)
                     ([^[:alpha:].!?-]([^.!?]*?[^[:alpha:].!?-])?\2){2}
                     ([^[:alpha:]-]|$)~',
                  'ix');