sub ok { (" ".shift) =~ /^@{[map "(?=.{$_}(?:01|10))",@_]}/x }