my $re = qr[(?<!mild|rate)\s+active];

##</code><code>##

my $re = qr[(?<!....mild|moderate)\s+active];