in reply to Re^2: How to extract certain range of text and display it?
in thread How to extract certain range of text and write into another file?

CountZero's suggestion is

local $/ = ".EON\n\n";

you simply have a typo:".EOM...