Hvorfor virker mit while loop ikke ??

Hi Rødder

jeg har følgende while loop, konceptet er at man søger efter en streng, når man har fundet den, så læser man linier ind et array fra strengen indtil at man finde END, det virker også fint, med jeg vil gerne have scriptet til at lede videre i filen, efter næste streng som matcher osv osv. men efter at scriptet finde kun første streng..læser linier indt til END og stopper så..  hvad skal jeg gøre for at få det til at lede videre i filen ??

///Thomas

open FILE, "c:/test/logs/start.log" or die $1;

while (<FILE>)
{
if (/(\*\*\*) +(ALARM|ALARM CEASING|ALARM DECREASED|ALARM INCREASED|REPEATED) +(\d+) +(\w+)\/(\w+) +"($ne_system_name)"+(U| ) +(\d+) +(\d+)/)
    {
        ($type,$alnr,$acls,$alcat,$origin,$att,$date_time)=($2,$3,$4,$5,$6,$7,$8.$9);


                        &readalarm();

      }

}

sub readalarm
{
                        $i=0;
                        while (<FILE>) {
                            $temp[$i] = $_;

                        if  (/^END \s{8}/){
                            last;


}

                        $i++;

}
                        $i = ($#temp-1);
                        @array = @temp;
                        @info2 = $temp[0];
                        @info3 = @temp[1 .. $i];