in reply to Looking for a flexible regex...

$re = qr/^(\d+-\d+)(,\s*\d+-\d+)*$/;

Is that what you're after?

In Section Seekers of Perl Wisdom