my @recs;
my $data = '';
while(<DATA>) {
    next unless $data or m/\d+\-\d+/;
    $data .= $_;
    if ( m/^(?:\n|\-\-\n)$/ ) {
        push @recs, $data;
        $data = '';
    }
}
print "$_\n\n\n" for @recs;