$Node->attr("size_of_contents") = scalar( $Node->content_list );
$Node->detach();
$Node->attr("size_of_contents") = undef;
$Node->dump();