use strict;
use warnings;
use feature 'say';

$/ = \1;

while ( $_= <DATA>) {
    say "<$_>";
}

__DATA__
1
0
345