Questione : Negare di stringa attuale all'interno di RegEx

Ciao, necessità del

I di costruire un RegEx dove la seguente stringa sarà trovata: necessità di ABC-section

I del
perform del

PERFORM XYZ-SECTION
or di escludere questo: il

perform che varia i1 da 1 da 1
or
PERFORM che VARIA I1 da 1 da 1

All case-insensitive.

I ha trovato gli esempi qui sopra con il RegEx follwing:
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But con il RegEx dato ho trovato il ciclo “per realizzare la variazione„ anche. Come configurazione questo RegEx escludere il Perl di loops.
Using come lingua per il mio RegEx.
class= del

Risposta : Negare di stringa attuale all'interno di RegEx

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