there is hope. if there is a record separator, like \nGREN:, you can set the magical $/ to that, and separate the records. perhaps that's a good start.

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

~Particle *accelerates*