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

