if($Number =~ m/\d{1,8}/){

     $N = $Number;

 }else{
     print("line has more than 8 digits!\n"
 }