my $in_header++;
while (<IN>) {
  if ($in_header && !/^\s+</) {
    push(@hdr, $_);
  }
  else {
    $in_header = 0;
    #process non-header lines (if needed) 
    #...
  }
}