Помогите с поиском.

[CLSAMG]

Уважаемые форумчане прошу Вашей помощи!
Дан текст найти все слова начинающиеся с приставки ПРИ- и ПРЕ-.

Что смог написать:

$txt = "вы пригород прогород преступление ПрИвао яма пророк не ПРИВЕТ ПРИ\\\ при делах, запри дверь запредельно";
@res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/g;
print "@res\n";

Выводит не все слова, помогите оптимизировать скрипт.

 

[ProFTP]

@res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/g;

опция i игнорирует регистр символов

@res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/ig;

или в чем вопрос?

 

[arto]

# perl -CSA -Mutf8 -le 'print join "\n", ( $ARGV[0] =~ m#\b(пр[еи].*?)\b#gi )' "вы пригород прогород преступление ПрИвао яма пророк не ПРИВЕТ ПРИ\\\ при делах, запри дверь запредельно"
пригород
преступление
ПрИвао
ПРИВЕТ
ПРИ
при
#