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