Perl web scraper,从DIV中提取只有"样式"标签的内容？

cpan install HTML::TreeBuilder
cpan install HTML::TokeParser

#!/usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
use HTML::TokeParser;

# 读取网页内容
my $url = 'http://example.com';
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);
my $content = $response->content;

# 创建HTML解析器
my $tree = HTML::TreeBuilder->new;
$tree->parse($content);

# 查找所有DIV标签
my $divs = $tree->look_down(_tag => 'div');

# 遍历所有DIV标签，查找只有"样式"标签的内容
foreach my $div (@$divs) {
    my $style_tags = $div->look_down(_tag => 'style');
    if (@$style_tags == 1) {
        print $div->as_HTML;
    }
}