$string = "<!ELEMENT ORDER    (NAME,DELIVERY,PAYMENT,ORDERNUMBER)>";
$string =~ m/\((.*)\)/;
@array = split (/,/,$1);
foreach (@array){print "$_\n"}