As long as you are not blindly interpolating into a string
eval (e.g. eval ".../$re/...", you can just set an alarm to guard against maliciously time-consumptive regex's and you should be ok.
Abigail's is nice, but I prefer $matchtext =~ /^(?!.*foo)/