5ch のスレッド一覧を Web::Query で取得する

gistfile1.txt

use strict;
use warnings;
use HTTP::Tiny;
use Encode qw/decode/;
use Web::Query;

my $temp = HTTP::Tiny->new->get('https://hayabusa9.5ch.net/news/');

my $str = decode('ShiftJIS' , $temp->{content} );

wq($str)
    ->find('h3')
    ->each(
        sub {
        my $i = shift;
        printf("%d %s\n", $i+1, $_->text);
        }
    );