The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
author: woremacx
handle: http://.*?\.ti-da\.net/
extract: <div class="main">(.*?)</div>.*?<a name="more">.*?</a>.*?<div class="main">(.*?)</div>
extract_capture: body body_more
extract_after_hook: |
  $data->{body} .= $data->{body_more} if $data->{body_more};