use strict;
use warnings;

for ( <DATA> )
{
        my $variable = qr/(?<!mild\s)(?<!moderate\s)active/;
        print $_ if ( m/$variable/ );
}

__DATA__
foo active
mild active
moderate active
active


##</code><code>##

foo active
active