Вопрос : Отрицайте существующий шнура внутри RegEx

Hi, потребность

I построить RegEx где следующий шнур будет: потребность abc-section

I
perform

PERFORM XYZ-SECTION
or исключить это:

perform меняя i1 от 1 1
or
PERFORM МЕНЯЯ I1 ОТ 1 1

All case-insensitive.

I нашло примеры выше с follwing RegEx:
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But с, котор дали RegEx я нашел петлю «для того чтобы выполнить менять» слишком. Как строение это RegEx исключить Perl loops.
Using как язык для моего RegEx.
class=

Ответ : Отрицайте существующий шнура внутри RegEx

1:	$line=~ m/^. {6} \ s+PERFORM \ s+ (?! менять) (\ S+) ($|\ s|\. /i