#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;

{
    # Zeilentrenner neu definieren; eher Datenblocktrenner
    local $/ = "\n\n";

    # Datenblockweise einlesen
    while ( <DATA> ) {
        # Trenner entfernen
        chomp;

        # 2. bis 3. Datenblock ausgeben
        print $_, "\n" if ( $. >= 2 and $. <= 3 );
    }
}

__DATA__
AAA1 AAA2 AAA3 AAA4

BBB1 BBB2 BBB3 BBB4
BBB5 BBB6 BBB7 BBB8

CCC1 CCC2 CCC3 CCC4