local $/ = "myrecordsep\n";
scalar <DATA>; ## Discard first separator
while (<DATA>) {
    ...
}