unless ( $test and $test =~ /^[01]+$/ ) { ...