if ($Number =~ m/\d\d{8,}/) {
   print ("line has more than eight digits!\n");
}
[download]

This only really does what your message indicates, i.e. it doesn't test for zero digits.