ysth =>
        sub {
            my $s = "1010101011";
            my $test = sub {  (" $s") =~ /^@{[map "(?=.{$_}(?:01|10))",@_]}/
+x  };
            $test->(2,5,8);
        }