Select Code to Download

<ul class="top">
    <li>Level 1
...
        </ul>
    </li>
</ul>

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($html);
...
        print "$text\n";
    }
}

Level 1 Level 2 Level 3

Level 1