use strict;
use utf8;

my %рег_шаблоны = ();

my $тел_шаблоны = <<EOF;
(xxx)xxx-xx-xx
(xxx)xxx-xxxx
(xxx)xx-xxxx
(xxxx)xxxxxx
(xxx)xxxxxx
xxx-xx-xx
xxx-xxxx
+xx(xxx)xxx-xx-xx
+xx(xxx)xxx-xxxx
+xx(xxx)xxxxxxx
8_926_435-66-88
+x_(xxx)_xxxxxxx
EOF

# в вышеприведенных шаблонах нужно использовать _ в качестве пробела и либо Х в качестве цифры, либо просто любую цифру

# а ниже сам генератор, который кладёт в ассоц. массив %рег_шаблоны сгенерированные и уже откомпилированные по шаблону Рег.Выражения
for my $строчка ( < $тел_шаблоны > ) {
    my $ключ = $строчка;
    $строчка =  quotemeta($строчка);
    $строчка =~ s{[0-9 x]} {\\d}gxi;
    $строчка =~ s{[  _  ]} {\\s}gxi;
    $рег_шаблоны{ $ключ } = qr/($строчка)/ms;
}


my $Юрий_Олеша__Зависть = <<EOF;
Он поет по утрам в клозете. Можете представить себе, какой 
это жизнерадостный, здоровый человек. Желание петь возникает в 
нем рефлекторно. Эти песни его, в которых нет ни мелодии, ни 
слов, а есть только одно "та-ра-ра", выкрикиваемое им на разные 
лады, можно толковать так: 

"Как мне приятно жить... та-ра! та-ра!.. Мой кишечник 
упруг... ра-та-та-та-ра-ри... Правильно движутся во мне 
соки... ра-та-та-ду-та-та... Сокращайся, кишка, сокращайся... 
трам-ба-ба-бум!" 
8 910 437-66-99

Когда утром он из спальни проходит мимо меня (я притворяюсь 
спящим) в дверь, ведущую в недра квартиры, в уборную, мое 
воображение уносится за ним. Я слышу сутолоку в кабинке 
уборной, где узко его крупному телу. Его спина трется по 
внутренней стороне захлопнувшейся двери, и локти тыкаются в 
стенки, он перебирает ногами. В дверь уборной вделано матовое 
овальное стекло. Он поворачивает выключатель, овал освещается 
изнутри и становится прекрасным, цвета опала, яйцом. Мысленным 
взором я вижу это яйцо, висящее в темноте коридора. В нем весу 
шесть пудов. Недавно, сходя где-то по лестнице, он заметил, 
как в такт шагам у него трясутся груди. Поэтому он решил  
прибавить новую серию гимнастических упражнений. Это +7(495)187-11-55
образцовая мужская особь.
EOF

# последовательно применяем к тексту все шаблоны из набора ( а найденные телефоны будут оседать в переменной $1 )
my $ключ;
for $ключ ( keys %рег_шаблоны ) {

    write while( $Юрий_Олеша__Зависть =~ /$рег_шаблоны{$ключ}/g );  
}

# для удобства вывел в от-format-ированную таблицу

format STDOUT_TOP =

сработавший шаблон !сгенерированное для шаблона РВ         !найденный телефон
-----------------------------------------------------------------------------

.

format STDOUT =       
@<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@>>>>>>>>>>>>>>>>
$ключ,             $рег_шаблоны{$ключ},                    $1
.

сработавший шаблон !сгенерированное для шаблона РВ         !найденный телефон
-----------------------------------------------------------------------------

xxx-xx-xx          (?^ms:(\d\d\d\-\d\d\-\d\d))                     437-66-99
xxx-xx-xx          (?^ms:(\d\d\d\-\d\d\-\d\d))                     187-11-55
(xxx)xxx-xx-xx     (?^ms:(\(\d\d\d\)\d\d\d\-\d\d\-\d\d))      (495)187-11-55
8_926_435-66-88    (?^ms:(\d\s\d\d\d\s\d\d\d\-\d\d\-\d\d))   8 910 437-66-99