blog.nomadscafe.jp

xoops.pl

sub handle {
    my($self, $args) = @_;
    $args->{content} =~ m!<meta name="generator" content="XOOPS" />!;
}

sub extract {
    my($self, $args) = @_;
    return ($args->{content} =~ m!<div class="itemBody">(.*?)</div>!s)[0];
}

FPNとか。