in reply to Using regexps to parse an XML DTD file

I'm getting closer: 

$dtdLine=~m/\((.*)\,|\,(.*)\)|\,(.*)\,/sg)

[download]


Gives me all but the last one.

In Section Seekers of Perl Wisdom