if( my( $start, $stop ) = $line =~ m{ < (\d+) \.\. > (\d+) }x ) {
  $n++;
  print OUT qq{$start, $stop, $header\n};
}