Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my @parts = $string =~ m/(?:$RE{balanced}{-parens=>'()<>'}|[^,<(]+)+/g
    +;
    
    print Dumper(\@parts);
    
  2. or download this
    <*2>FOO<2,1>,<*3>(SigB<8:0:2>,BAR),<*2>Siga<2:0>,Sigb<8,7,6,5,0>
    $VAR1 = [
    ...
              '<*2>Siga<2:0>',
              'Sigb<8,7,6,5,0>'
            ];