my $negated = qr{^(?!.*?$regex)}s;