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