if( not ($bar =~ /bar/ or $baz !~ /qux/ and defined $undef) )