Select Code to Download

@x = split /(?{
    # This populates $^R
...
    # This returns an impossible pattern for long matches
   (pos()-$^R < 5) ? "" : "no\\bmatch"
  })/, $string;

# Be sure that these start clean!
my %bad_r;
...
      "no\\bmatch"
    }
  })/, $string;