for (1 .. 4) {
    my $following = <DATA>;
    print $following;
}

##</code><code>##

print scalar <DATA> for 1 .. 4;