#!/usr/bin/perl -l
use strict;
use warnings;

my $content = do { local $/; <DATA> };
my @blocks = split /(\n\n+)/, $content;

{
    local $, = "\n";
    print map { ">>>$_<<<" } @blocks;
}

__DATA__
AB
A
BB





CC
C
CD



EE
EA