Select Code to Download

    for my $p ($elt->children('p')) {
        for my $c (reverse($p->cut_children())) {
...
        }
        $p->delete();
    }