while( <DATA> ){
  if( /INTERESTING CODE/ .. /^\n/ ){
    if( /(?!<NAME.+)NAME\s(\w+(\s\W?\s?\w+)*)/ ){
      push @col_1, $1
    }
    if( /(\w+\W+){2,}NAME\s(\w+(\s\W?\s?\w+)*)/ ){
      push @col_2, $2
    }
  }
} 

print join ', ', (map{ $_ = 'NAME '.$_}@col_1, @col_2)

__END__

STDOUT:
 NAME ONE,
 NAME TWO THREE,
 NAME FOUR,
 NAME FIVE - SIX,
 NAME SEVEN,
 NAME EIGHT,
 NAME NINE - TEN,
 NAME ELEVEN,
 NAME TWELVE
[download]