
while (<>) {
  if ($_ =~ /^\d+\.\d\d$/) {
    print "$_ looks like a number.\n";
  } else {
    die "DOES NOT COMPUTE!  DOES NOT COMPUTE!\n";
  }
}



