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

while (next_record())
{
...
}