my $obj = XMLin($filename, ForceArray => 1, ForceContent => 1, KeepRoot => 1, ContentKey => '_c', KeyAttr => []); open(OUT, ">$filename-1"); print OUT XMLout($obj, KeepRoot => 1, ContentKey => '_c', KeyAttr => []);