Help for this page
if( not ($bar =~ /bar/ or $baz !~ /qux/ and defined $undef) )
if( ! -d && $_ ne "." && $_ ne ".." ) {