drop function if exists perl_regex_matches(text, text);
CREATE OR REPLACE FUNCTION perl_regex_matches(text, text)
  RETURNS SETOF text[] AS
    /*$1 - где ищем
$2 - что ищем
*/

$BODY$
	my ($sentense, $regexp) = @_;
	my @values = $sentense =~ /$regexp/g;
	return [ \@values ];
$BODY$
  LANGUAGE plperl VOLATILE
  COST 100
  ROWS 1000;
ALTER FUNCTION perl_regex_matches(text, text)
  OWNER TO postgres;
drop function if exists perl_regex_matches_t(text, text);
CREATE OR REPLACE FUNCTION perl_regex_matches_t(text, text)
  RETURNS SETOF text AS
    /*$1 - где ищем
$2 - что ищем
*/
$BODY$
	my ($sentense, $regexp) = @_;
	my @values = $sentense =~ /$regexp/g;
	return \@values;
$BODY$
  LANGUAGE plperl VOLATILE
  COST 100
  ROWS 1000;

do language plpgsql
$$
declare _w text;
declare _b text[];
declare _w1 text;
declare _reg text;
declare c cursor for select * from perl_regex_matches_t(_w,_reg) m;
declare r record;
begin
  _w = ' Опубликовано новое постановление Правительства Российской Федерации о штрафах ';
  _reg = '(([A-ZА-Я]+[a-z0-9а-я]*[\s\.]){2,})';
  raise notice '_w %',_w;
  select m into _b from perl_regex_matches(_w,_reg) m where m is not null;
  raise notice '_b %',_b;
end;
$$

NOTICE:  _w  Опубликовано новое постановление Правительства Российской Федерации о штрафах
NOTICE:  _b {"Правительства Российской Федерации ","Федерации "}