webquery-first.pl

use strict;
use warnings;
use Web::Query;

my $elem = wq('http://ch.nicovideo.jp/channel/ch60001')
    ->find('ul.g-video-mini .g-video-right');

$elem->{trees} = [$elem->{trees}[0]];

$elem->each(sub {
    my $i = shift;
    print $_->text, "\n";
});