use Modern::Perl;

{
    local $/ = ".EON\n\n";
    while ( my $record = <DATA> ) {
        say "I found: $record";
        # ... now do something with $record ...
    }
}