function getw(
-- возврат no-го слова из строки с параметрическим списком разделителей
-- valerytin, hexcept@narod.ru, apr-2006
  p_str varchar2, -- входящая строка
  p_num pls_integer:= 1 , -- слово по счету: >0 - от начала, <0 - с конца
  fstr varchar2:= -- список "пробелов" по умолчанию
   ' ~!@#$%^*()+=;:?,./\|[]{}"<>-_№'||chr( 9 )||chr( 10 )||chr( 13 )||chr( 38 )||chr( 39 )||
   chr( 147 )||chr( 148 )||chr( 171 )||chr( 187 )||chr( 96 )
 ) return varchar2 is
 l_str varchar2( 2000 );
 l_dev char:=chr( 7 ); -- chr(7): возможность не указывать пробел в fstr
begin
 if p_str is null or p_num= 0  then return null; end if;
 l_str:=
  ltrim(translate(p_str,l_dev||fstr,rpad(l_dev, 80 ,l_dev)),l_dev);
 if l_str is null then return null; end if;
 if p_num> 0  then -- если ищем от начала строки
  l_str:=ltrim(l_str,l_dev)||l_dev;
  for i in  2 ..p_num loop
   l_str:=ltrim(substr(l_str,instr(l_str,l_dev)),l_dev);
  end loop;
  return substr(l_str, 1 ,instr(l_str,l_dev)- 1 );
 else -- ищем с конца
  l_str:=l_dev||rtrim(l_str,l_dev);
  for i in  2 ..-p_num loop
   l_str:=rtrim(substr(l_str, 1 ,instr(l_str,l_dev,- 1 )),l_dev);
  end loop;
  return substr(l_str,instr(l_str,l_dev,- 1 )+ 1 );
 end if;
 return null;
end getw;
--------------------------------------------------------------------------------
select
 getw(s, 1 ,' ') fa,
 getw(s, 2 ,' ') im,
 decode(getw(s, 2 ,' '),null,null,
  decode(getw(s, 3 ,' '),null,null,
  trim(substr(' '||s||' ',instr(' '||s||' ',' '||getw(s, 3 ,' ')||' '))))) ot
from
(
 select '      Абасов Фархад Фикрет-Оглы' s from dual union all
 select 'Аблязов Рустем ' s from dual union all
 select 'Бахшалиев Афик Зульфали оглы' s from dual union all
 select 'Булина-Зыкина   Елена Андреевна          ' s from dual union all
 select 'Эль_гуэссаб Любовь Валерьевна' s from dual union all
 select 'Али-Абдо' s from dual union all
 select 'Фамилиев Али-Абдо' s from dual union all
 select 'Фамилиев Али-Абдо Отчествевич' s from dual union all
 select 'Фамилиев Али-Абдо Отчествевич + бла-бла бла' s from dual union all
 select 'Бендер Остап Сулейман -Берта-Мария Ибрагимович ' s from dual
)