my $stuff;
my @stuff;
while (<DATA>) {
  if ($stuff) {
    push(@stuff, $_) 
      if (!($_ =~ /^\s*CODE\s*NAME/) && !($_ =~ /^\s*-+/));
  } else {
    $stuff = 1 if ($_ =~ /^INTERESTING CODE-+/);
  }
}
my @interesting_code;
for (@stuff) {
  my @code = split(/\s{2,}/, $_);
  my $i = 0;
  for (@code) {
    push(@interesting_code, $_) if !($i % 2);
    $i++;
  }
}
$interesting_code = join(', ', @interesting_code);