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