use File::Stream;
my $stream = File::Stream->new($filehandle);
$/ = qr/\s+/;
...
$nextnum= <$stream>;