Re^2: prune xml of empty elements

Updated based on this clarification

#!/usr/bin/perl --
use warnings;
use strict;
use XML::Twig;

my $str = <<'EOF';
<note>
  <to>
    <person>Satan</person>
  </to>
  <from via="postcard" russia="with love">moneypenny</from>
  <heading></heading>
  <body></body>
  <fudge a="body"></fudge>
  <fudge><a></a></fudge>
  <fudge><a body="good"></a></fudge>
</note> 
EOF

my $t = XML::Twig->new(
    pretty_print  => 'indented',
    twig_handlers => {
        _all_ => sub {
            $_->delete() unless $_->has_child or $_->has_atts
        },
    },
);
$t->parse($str);
$t->print();

__END__
<note>
  <to>
    <person>Satan</person>
  </to>
  <from russia="with love" via="postcard">moneypenny</from>
  <fudge a="body"></fudge>
  <fudge>
    <a body="good"></a>
  </fudge>
</note>
[download]

Comment on Re^2: prune xml of empty elements Download Code