Select Code to Download

<!ELEMENT ORDER    (NAME,DELIVERY,PAYMENT,ORDERNUMBER)>

while ($dtdLine=~/(\((.*?)\,|\,(.*?))/sg){
    push(@children,$1);
    print "@children\n";
}