It it possible to have spaces besides equel sign, and quotes isn't mandatory in some cases. So, I suggest the following:

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