if($line =~ /<meta name = "\*.HTML.author" Content = (.+)>/i)
   {
         print "FILE = $File::Find::name   Author = $1\n";
   }