{
    local $/ = '.ENDS';
    @blocks = <INPUT>; #or whatever
}
##</code><code>##

for ($line) {