in reply to Phone Number Regular Expression

There's also
/800-555-(?!9999)/
and
/(\d+)-(\d+)-(\d+)/ && $1 == 800 && $2 == 555 && $3 != 9999

In Section Seekers of Perl Wisdom