こちらのページから名前をいただくとよさそう。
http://www.namaejiten.com/h01/name01.html
use strict; use warnings; use Mojo::ByteStream 'b'; use Mojo::UserAgent; my $ua = Mojo::UserAgent->new; my $tx = $ua->get('gttp://www.namaejiten.com/h01/name01.html'); my $r = $tx->res->dom->at('table.rankingtable'); $r->find('tr')->each( sub { my $e = shift; print b($e->td->[1]->text)->decode('shift-jis')->encode; } );