Cuestión : Negar de secuencia existente dentro de RegEx

Hola, necesidad del

I de construir un RegEx donde la secuencia siguiente será encontrada: necesidad de ABC-section

I del
perform del

PERFORM XYZ-SECTION
or de excluir esto: el

perform que variaba i1 a partir de la 1 por 1
or
PERFORM QUE VARIABA I1 A PARTIR de la 1 POR 1

All case-insensitive.

I encontró los ejemplos arriba con el RegEx follwing:
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But con el RegEx dado encontré el lazo “para realizar la variación” también. Cómo estructura este RegEx excluir el Perl de loops.
Using como lengua para mi RegEx.
class= del

Respuesta : Negar de secuencia existente dentro de RegEx

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