if ($bindata =~ m[ ^ (?: .{4} )*? \Q$bin\E ]x) {
    print "regex found $n at ", pos( $bindata ) - length( $bin );
  }