while ($line0=<>) {$line1=<>;$line2=<>;$line3=<>;
last if not defined $line0;
last if not defined $line1;
last if not defined $line2;
last if not defined $line3;
do_some_stuff;
}