I'd use * instead of +, since he didn't say empty fields were not allowed. And what if the bracket are is not the first character? Fixed and documented:

$_ = "abc,xyz,{1,2,3,4},18-90-89,{{1,2},{5,6,7,8}},yts";


# Create a regexp to match nested brackets.

my $par;  # Can't combine this with next line.

$par = qr/ \{             # Opening bracket.
          (?:             # Match zero or more
             [^{}]+       #    non-brackets
             |            #    or
             (??{ $par }) #    bracketed content.
           )*
           \}             # Closing bracket.
       /x;


# Extract fields from the line.

my @elems = / \G                 # Start where last match left off.
              (                  # Capture (return)
                 (?:             #    zero or more
                    [^{,]+       #       non-brackets, non-commas
                    |            #       or
                    $par         #       bracketed content.
                 )*
              )
              (?: , | $)         # Match comma or end of line.
            /xg;


print(join("\n", @elems));

[download]

In reply to Re^2: urgent perl regexp help needed by ikegami
in thread urgent perl regexp help needed by karthikpa

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.