#!/usr/bin/perl
use strict;
my @chunks;
{

local $/ = undef;
@chunks = split(/^(?=(?:EN))/m, <>);

}
print "Rec: ",scalar(@chunks), " eor\n";

for (my $i=0; $i <= scalar(@chunks); $i++) {
        $chunks[$i] =~ s/[\r\n]+//g;
        if ($chunks[$i] =~ /^EN/ ) {
                print "$chunks[$i]\n";
}
}