xml - perl を使用して XML からタグとその親を削除する

Question

こんにちは、XML からノードを削除する perl スクリプトに取り組んでいます。以下の投稿を使用してスクリプトを開発しました。

perl - xml ファイルからノードを削除する

しかし、ノードが削除されると、親ノードは空白のままになり、XML を読み取るアプリケーションはそれを好まなくなります。アプリケーションがスペースを含むタグを認識していないことを意味します。そのため、親ノードもスペースで削除したいと思います。

以下の XML から

<twice>
    <inner>
        <twice>
            <name>John</name>
            <surname>Smith</surname>
        </twice>
   </inner>
</twice>

私のスクリプトはノードを「2回」削除できますが、ノード「内側」をスペースで残します

結果：

<twice>
    <inner>

   </inner>
</twice>

しかし、ノード 'inner' とその親ノードをスペースなしで削除したいと考えています。

期待される結果：

<twice>
</twice>

PS: 私は perl の専門家ではないので、間違いは無視してください。