(?!regex1)(?!regex2)(?!regex3)

##</code><code>##

my $andedRegexes = Regexp::Assemble->new;
  $andedRegexes->add( 'regex1' );
  $andedRegexes->add( 'regex2' );
  $andedRegexes->add( 'regex3' );
#regex is now 'regex(1|2|3)'
#which is more efficient

##</code><code>##

$negatedAndedRegexes = (?=qr($andedRegexes))