my $description = ($source =~s/<meta\s+name=\"?description\"?\s+content=\"?([^\"]*)\"?\s*\/?>//i) ? $1 : '';