sub next_record() {
  local $/ = "DELIM";
  if (<FILE>)
    return 1;
  return 0;          
}

while (next_record())
{
...
}