I think you want to add anchors to your regex --

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

This seems to satisfy the requirement -- '12345678' and '123456' don't print; '12345654321' does.