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