my $count = 0;
my @records = ();
while (<IN>) {
    if ($count) {
        $records[-1] .= $_;
    } else {
        push @records, $_;
    }
    $count = ++$count % 6;
}
print join("\n",@records);

##</code><code>##

my $content = do {
    local $/;
    <IN>;
    };
my @records = split /(?<=Metadata\: 1114890\n)/, $content;