if ( $test || 0 ) { ... # and if ( uc $string eq 'String' ) { ...