Is this what you need?

use strict;
my $number= undef;
while (<>) {
    next unless /(\d+)/;
    $number= $1;
}
die "No number" unless defined $number;
[download]