Help for this page

Select Code to Download

Select or download this
```
/(\d\s+foo)[^\r\n]*(\d\s+foo)/
```

Select or download this

my $re = qr/\d\s+foo/;
sub match {
  local $_ = shift;
...
4
2
4