local $/ = "***END***\n";  # or "***END***\r\n"