Select Code to Download

#!/usr/bin/perl
use strict;
...
454691673
258611036
42

if(length($line) != 9){
  warn "Bad data read (at line $.): '$line' length is not correct.\n";
...
  warn "Bad data read (at line $.): '$line' not numerical.\n";
  next; # skip processing this line
}