Pytanie : Negować istniejący Sznurek wśrodku RegEx

Cześć,

I potrzeba RegEx dokąd the następujący Sznurek znajdować:

PERFORM XYZ-SECTION
or
perform abc-section

I potrzeba to:

perform i1 od (1) (1)
or
PERFORM I1 OD (1) 1

All case-insensitive.

I zakładać the przykład (1) z the follwing RegEx:
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But z the dawać RegEx I zakładać the pętla "Wykonywać" Zbyt. Jak budowa ten RegEx the loops.
Using Perl jako język dla mój RegEx.

Odpowiedź : Negować istniejący Sznurek wśrodku RegEx

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