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

$/ = \1;

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

__DATA__
1
0
345

##</code><code>##

<1>
<
>
<0>
<
>
<3>
<4>
<5>
<
>