#! perl
use strict;
use warnings;

local $/ = \1;

for ($_ = <DATA>; $_; $_ = <DATA>)
{
    print "<$_>\n";
}

__DATA__
1
0
42