sub genBufferedGetNum {
    return sub {
                @buf = do{ local $/ = \10; split ' ', <> };
                return @buf;
    };
}

my $getNum = genBufferedGetNum();

while( my @part  = $getNum->() ) {
  print @part, "\n";
}

##</code><code>##

$: cat tb.dat
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
$:

##</code><code>##

$: cat tb.dat | perl tb.pl
01234
56789
01234
56789
01234
56789
0