If you have Perl version 5.10+ regex extensions, you might also consider the  (*COMMIT) backtracking control verb. Used in conjunction with (*FAIL), this can produce a "hard" stop if a pattern is found that's as hard as you could ever want.