local $/ = "end of record\n";
while(<>) {
  # process a delimited section if matches your criteria
}