use XML::Simple;

$xml = XMLin("pre.xml");
$xml->{core}->{test} = 'testeroo';
$res = XMLout($xml);

print $res;