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