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