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