#!/usr/bin/env perl
use strict;
use warnings;

use 5.010;

# read first line assuming it is a kind of block seperator
my $bsep = <>;

$/ = $bsep;
while(defined(my $block = <>)) {
    chomp $block;
    my @records = split /\n/, $block;
    next if @records < 3; # malformed block
    foreach my $record (@records) {
        say $record;
    }
    say "========================";
}