Select Code to Download

sub wanted { 
    rename($_, lc) or die "$_: $!" if !-d && /[A-Z]/;
}

my $tree = HTML::TreeBuilder->new_from_file($fn);
foreach my $a ($tree->lookdown('_tag', 'a')) {
...
print OUT $tree->as_HTML;
close OUT;
$tree->delete;