The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# upgrade Google News Sports feeds
author: Tatsuhiko Miyagawa
handle: http://www\.daily\.co\.jp/.*?\.shtml
extract: <!-- google_ad_section_start=s1 -->\s*(<.*?)<!-- google_ad_section_end=s1 -->
extract_capture: body
extract_after_hook: |
  if ($args->{entry}->link =~ m!/(\d{4})/(\d\d)/(\d\d)/!) {
      $data->{date} = Plagger::Date->new(year => $1, month => $2, day => $3);
  }