sub handle_force { my($self, $args) = @_; return $args->{entry}->link =~ qr!^http://(?:blog\.livedoor\.jp/|[\w\-]+\.livedoor\.biz/)! and $args->{entry}->body =~ m!\x{7D9A}\x{304D}\x{3092}\x{8AAD}\x{3080}!; } sub handle { my($self, $args) = @_; $args->{entry}->link =~ qr!^http://(?:blog\.livedoor\.jp/|[\w\-]+\.livedoor\.biz/)! or $args->{content} =~ m!trackback:ping="http://app\.blog\.livedoor\.jp/! } sub extract { my($self, $args) = @_; (my $content = $args->{content}) =~ s/\r\n/\n/g; if ( $content =~ m!