#!/usr/bin/perl

use strict;
use warnings;

$/ = "\n====";
while (<>) {
    s/\n====$/====/;
    print;
}