Pergunta : Negar de corda existente dentro de RegEx

Olá!, necessidade do

I de construir um RegEx onde a seguinte corda seja encontrada: necessidade de ABC-section

I do
perform do

PERFORM XYZ-SECTION
or de excluir isto: o

perform que varia i1 de 1 por 1
or
PERFORM que VARIA I1 de 1 por 1

All case-insensitive.

I encontrou os exemplos acima com o RegEx follwing:
$line=~ m/^. {6} \ s+PERFORM \ s+ (\ S+) ($|\ s|\. /i

But com o RegEx dado eu encontrei o laço “para executar a variação” demasiado. Como configuração este RegEx excluir o Perl de loops.
Using como a língua para meu RegEx.
class= do

Resposta : Negar de corda existente dentro de RegEx

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