Perl has supported [^\W\d] forever. One of my favorites is [^\S\n] (any whitespace character but newline).
(update) I wasn't trying to argue against nor diminish your proposed patch. I just wanted to mention this solution to this problem which didn't appear to be covered in the thread yet.
- tye
In reply to Re^2: Why does \w include numbers and underscore?
by tye
in thread Why does \w include numbers and underscore?
by davido
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |