#!/usr/bin/env perl
use 5.010; use strict; use warnings;

my $l;               # chunk of a line
my $tiny_buffer = 8; # tiny buffer for testing
my $leftover = '';   # leftover, possibly partial number at end of buffer
while ( read DATA, $l, $tiny_buffer ) {
    $l = $leftover . $l;
    say "        ;$l;";
    $leftover = '';
    if( $l =~ s/(\d+)$//g ){
        if( $1 == 0 ){
            $l .= '0';
            $leftover = '';
        } else {
            $leftover = $1;
        }
    }
    for (split ' ', $l) {
        if ( $_ == 0 ) {
            say 'Reached a zero';
        } else {
            say "; $_ ;";  # process a number
        }
    }
}

__DATA__
1 2 3 4 5 6 7 8 99 1 2 3 4 5 6 7 8 9 0
1 22 3 4 5 6 7 8 99 1 2 3 4 5 6 77 8 9 0