Help for this page

Select Code to Download

Select or download this
```
  m[ (?<= ^ .{4} )*? ... ]x
```

Select or download this

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