
while (<>) {
  if ($_ =~ /^\d+\.\d\d$/) {
    print "$_ looks like a number.\n";
  } else {
    warn "Malformed number";
  }
}

