#!/usr/bin/perl5

require "get_form_data.pl";
&get_form_data();

$search_term = $FORM{'search'};

my @match;

opendir(DIR, ".");
while($file = readdir(DIR))
{
    next if($file !~ /.html/);
    open(FILE, $file);
    $found_match = 0;
    $title = "";
    while(<FILE>)
    {
        if(/$search_term/i)
        {
            $found_match = 1;
        }
        if((/<TITLE>/) || ($found_title))
        {
            if((/<\/TITLE>/) && (/<TITLE>/))            {
                chop;
                $title = $_;
                $title =~ s/<TITLE>//g;
                $title =~ s/<\/TITLE>//g;
            }
            else
            {
                if($found_title == 1)
                {
                    $title = $_;
                    $found_title = 2
                }
                elsif($found_title == 2)
                {
                    $found_title = 0;
                }
                else
                {
                    $found_title = 1;
                }
            }
        }
    }
    if($found_match)
    {
        push @match, qq(<A HREF="$file">$title</A><BR>\n);
    }
    
    close(FILE);
}

closedir(DIR);

# now output
print "Content-type: text/html\n\n";
if (@match) {
  for (@match) {
    print;
  }
}
else {
  print "Sorry, no matches found";
}

exit;

##</code><code>##

...
open(FILE, $file);
$file_contents = join '', (<FILE>);
close (FILE);

$file_contents =~ m|<title>(.*?)</title>|is;
my $title = $1;

if ($file_contents =~ m|$search_term|is) {
  push @match, qq(<A HREF="$file">$title</A><BR>\n);
}