http://www.perlmonks.org?node_id=604520


in reply to Keyed list in perl

The 'series { 1 {{...}}' implies that there might be multiple groups of xy_data. If that's the case you're going to need some looping or an actual parse tree. If not, I think the REGEXP posted is the simplest solution. KPH