% perl -w use XML::Simple; $xml = XMLin("pre.xml"); $xml->{core}->{test} = 'testeroo'; print XMLout($xml, noattr => 1); ^D testeroo ere <