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

##</code><code>##

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