{
  local $/= "\nGREN:";
  while(<DATA>)
  {
    ## ...more here
  }
}