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