sub handle_force { my($self, $args) = @_; $args->{entry}->link =~ qr!^http://(?:blog\.livedoor\.jp/|[\w\-]+\.livedoor\.biz/)!; } sub extract { my($self, $args) = @_; (my $content = $args->{content}) =~ s/\r\n/\n/g; if ( $content =~ m!
(.*?)
\n\s*\n\s*
(.*?)
\n?
!s ) { return "
$1
$2
"; } }