Select Code to Download

my @data = ();
while ( my $line = <IN>) {
  last if ($line =~ /^__METADATA__$/);
...
}
# assuming no multivalue keys
my %metadata = map { chomp $_; split( $_, /:/, 2) } (<IN>);

while (my $line = <IN>) {
  last if ($line =~ /^__DATA__$/);
}
my @data = <IN>;