#!/usr/bin/env perl

use strict;
use warnings;

use XML::LibXML;

my $dom = XML::LibXML->load_xml(string => <<'EOT');
<?xml version="1.0" encoding="UTF-8"?>
<cidconfig>
    <createnew>
        <logon>aaa,aaa</logon>
        <startnew>bbb,bbb</startnew>
        <choosecs>ccc,ccc</choosecs>
        <chooseapp>ddd,ddd</chooseapp>
        <chooseconfig>eee,eee</chooseconfig>
        <chooseconftype>fff,fff</chooseconftype>
        <startnew1>ggg,ggg</startnew1>
        <activate>hhh,hhh</activate>
    </createnew>
</cidconfig>
EOT

my $root = $dom->getDocumentElement;
my @records = $root->findnodes("//createnew");
my @kids; 
push @kids, $_->childNodes for @records;
print $_->textContent for @kids;

##</code><code>##

        aaa,aaa
        bbb,bbb
        ccc,ccc
        ddd,ddd
        eee,eee
        fff,fff
        ggg,ggg
        hhh,hhh