Question : Nier de la corde existante à l'intérieur de de RegEx

Bonjour, le besoin du

I de construire un RegEx où la corde suivante sera trouvée : le besoin d'ABC-section

I du
perform du

PERFORM XYZ-SECTION
or d'exclure ceci : le

perform variant i1 de 1 par 1
or
PERFORM VARIANT I1 de 1 PAR 1

All case-insensitive.

I a trouvé les exemples ci-dessus avec le RegEx follwing :
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But avec le RegEx donné j'ai trouvé la boucle « pour effectuer la variation » aussi. Comment construction ce RegEx exclure le Perl de loops.
Using comme langue pour mon RegEx.
class= de

Réponse : Nier de la corde existante à l'intérieur de de RegEx

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