use Modern::Perl qw/2014/;

{
    local $/ = ' ';
    while (<DATA>) {
        chomp;
        if (/^0\n*$/) {
            say "0 - End of line";
            next;
        }
        elsif (/^0\n(\d+)$/) {
            say "0 - End of line";
            say ">$1<";
            next;
        }
        else {
            say ">$_<";
        }
    }
}

__DATA__
1 34 282716 7 20 333333 91 0
23 68 82629172 112 8271718 102 1 0
7 211 2 123 0 99 666 0