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"};