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