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