# Delete BAL_* nodes
$balance->cut_children(qr/^BAL_\d+$/);