Select Code to Download

__DATA__
blah blah blah
...

more blah
blah blah

#########################
print $interesting_code;
...
"NAME ONE, NAME TWO THREE, NAME FOUR ..., NAME FIVE - SIX, NAME SEVEN,
+ NAME EIGHT ..., NAME NINE - TEN, NAME ELEVEN, NAME TWELVE"
# you get the picture... a csv list of NAMEs
#########################

my $stuff;
my @stuff;
...
  }
}
$interesting_code = join(', ', @interesting_code);