...
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);
}