if ( m/^[01]{8}$/ and m/1/) { print "OK\n" }