Select Code to Download

my $count = 0;
my @records = ();
while (<IN>) {
...
    $count = ++$count % 6;
}
print join("\n",@records);

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