while (<ORA_OUT>) {
   # -> Verarbeitung $_
   if (/^(ORA|SP2)-\d+:/) {
      # -> Verarbeitung $_
      # dann zwei Zeilen weiter
      <ORA_OUT> for 0 .. 1;
      next;
   }
   # -> Verarbeitung $_
}