in reply to Regex Pattern Problem

unless ($num =~ /^\d{5,}/ && $num !~/\w/)

[download]
should do you.

In Section Seekers of Perl Wisdom