open (FH,"filename here") or die;

while ( my $line = <FH> ) {
   DO STUFF HERE WITH LINES;
   last if $line =~ /^END$/;
}
close(FH);