use File::Basename;

{

local $/;

opendir(DIR, $dirname) or die "Can't open directory $dirname: $!";
while (defined($file = readdir(DIR))) {

   ($base, $dir, $ext) = fileparse($dirname . "/" . $file,'\..*');

   if ($file ne "." && $file ne "..") { #-T) {

      open(FILE, $dirname."/".$file) or die "Couldn't open $file: $!";

         $plain_text = <FILE>;
         $plain_text =~ s/<[^>]*>//gs;

         if ($plain_text =~ /$search_string/g) {

            push(@matched_files, $base);

         }

      close(FILE);

   }

}
closedir(DIR);

}
# @matched_files contains all files that had $search_string in them
##</code><code>##

<img src="img.gif" alt=" Look at this >>>> ">