foreach my $line (@lines) {
 if ($line=~ m/<FILENAME>.*\.htm/) {
     $doc_title_temp=substr $line, 10;
     $doc_title=$doc_title_temp;
     print "Filename is $doc_title";
     last;  ############### this stops
 };