#!perl use 5.012; # strict, // use warnings; use Data::Dump; use XML::Rules; my $xml_doc = < EOXML my $parser = XML::Rules->new( stripspaces => 3|4, rules => [ _default => 'raw', ], ); #dd my $data = $parser->parse($xml_doc); print my $out = $parser->ToXML($data, 0, " ", "") . "\n"; __DATA__