while (defined($_ = <STDIN>)) {
    print "Numbers only please" and next unless (/^\s*(\d+)\s*$/);
    return $1;
}

die "urk!  Out of input.\n";