if($line =~ /<meta name\s*=\s*"?.*?author"?\s+content\s*=\s*"?([^>"]*)"?/i)