Frage : Von vorhandener Schnur innerhalb RegEx verneinen

Hallo,

I Notwendigkeit, ein RegEx zu errichten, in dem die folgende Schnur gefunden wird:

PERFORM XYZ-SECTION
or
perform ABC-section

I Notwendigkeit, dieses auszuschließen: das

perform i1 von 1 durch 1
or
PERFORM unterscheiden I1 VON 1 DURCH 1

All case-insensitive.

I UNTERSCHEIDEN fand die Beispiele oben mit dem follwing RegEx:
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But mit dem gegebenen RegEx fand ich der Schleife, „auch sich unterscheiden durchzuführen“. Wie man Bau dieses RegEx das loops.
Using Perl als Sprache für mein RegEx.
ausschließt

Antwort : Von vorhandener Schnur innerhalb RegEx verneinen

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