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