ゴルゴ31から今月出る本を取得する（適当）

    #!/usr/bin/perl -w
    use strict;
    use WWW::Mechanize;
    use utf8;
    binmode(STDOUT, ":utf8");
    my $start = "http://www.golgo31.net/";
    my $mech = WWW::Mechanize->new( autocheck => 1 );
    $mech->get( $start );
    my @links = $mech->find_all_links( text_regex => qr/.+\(.+\)$/ );
    for my $link ( @links ) {
        my $url = $link->url_abs;
        my $filename = $url;
        $filename =~ s[^.+/][];

        print $link->text . "\n";
    }

ここからぱくり
http://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FWWW%3A%3AMechanize
http://www.rwds.net/kuroita/program/Perl_unicode.html
Redirecting…