Select Code to Download

<META NAME="HTML.author" CONTENT="Joe Smith">

<META NAME="Company.HTML.author" CONTENT="Carl Jones">

<META NAME="web.author" CONTENT="Mike Simmons">

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