use read and set it to 80 chars, then read a line at a time till you match m/END\s{77}/. That leaves your file pointer ready to read the rest of the file in different chunks later. Handy.

--
$you = new YOU;
honk() if $you->love(perl)