
while (<>) {
  unless ($_ =~ /^\d+\.\d\d$/) {
    warn "Malformed number at input record $.:\n\t$_\n";
    $badrecs += 1;
  }
}

if ($badrecs) {
  warn "There were $badrecs bad input records in all.\n";
} else {
  warn "All input data was good.\n";
}





