the answer may be here http://www.perlmonks.org/?node_id=830411 courtesy of ikegami

 
my $parser = XML::LibXML->new();
$parser->keep_blanks(0);
...
my $changed = $dom->toString(1);
[download]

I take no credit for this answer other than having been looking for the same answer for a couple of days before finding it.