Help for this page

Select Code to Download

Select or download this

   $_ = "<*2>FOO<2,1>,<*3>(SigB<8:0:2>,BAR),<*2>Siga<2:0>,Sigb<8,7,6,5
+,0>"; 
   @line = split(/,(?![\w,]+[>)])/, $_); 
   print join("\n", @line), $/;

Select or download this

   <*2>FOO<2,1>
   <*3>(SigB<8:0:2>,BAR)
   <*2>Siga<2:0>
   Sigb<8,7,6,5,0>