use strict;
use warnings;

while (my $line = <DATA>) {
    if ($line =~ /^id:\d+/) {
        for (1 .. 4) {
            my $following = <DATA>;
            print $following;
        }
    }
}