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

##</code><code>##

if(  ! -d  &&  $_ ne "."  &&  $_ ne ".."  ) {