open(XML, "<", ...);
{
  local($/) = '</record>';
  while (<XML>) { ...process one <record> element... }
}