[armandi]

да и функция m/texttexttext/g тоже не помогает

[mrcnn]

Код:

if ($all=~ /([A-Яа-я]{2,20}\s[А-Я]\.\s[А-Я]\.)/) {print $1;}

Этот код выдирает только первое вхождение.
Чтобы выдрать все фамилии, нужно организовать цикл и на каждой итерации запомнить всю строку после каждой фамилии.

Код:

while ($all=~ /([A-Яа-я]{2,20}\s[А-Я]\.\s[А-Я]\.)(.*)/) {print $1;$all=$2;}

[kim-aa]

Построчная обработка файла в Perl
http://forum.oszone.net/thread-170360.html

# Помещаем содержимое файла в переменную $all, предварительно слив всё в одну строку $all = join("",@lines); »

Я бы решал задачу по другому.
Сначала построчно искал все фамилии при помощи шаблона Regex и добавлял бы их в массив.
Потом бы при остром желании, удалял бы из массива дубли.

В случае предлагаемом вами нагрузка очень большая, т.к. по сути файл будет многократно перечитываться на предмет совпадений.