# Warning: These are _crappy_ regexes and I haven't run this
($description) = 
  $document =~ 
    /<meta\s+name=['"]description['"]content['"]([^'"]+)['"]/;
($posted) = 
  $document =~ 
    /<meta\s+name=['"]posted['"]\s+content['"]([^'"]+)['"]/;
print "$description, $posted\n";