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