That depends a whole lot on what you want to achieve actually. Simplisticly you could use a regex to extract runs of uppercase letters. Something like:

my $runs = $str =~ /([A-Z]+)/g;

But one of your strings looks like it ought have digits on the end so you may want to augment that to:

my $runs = $str =~ /([A-Z]+\d*)/g;

That finds runs of upper case characters optionally followed by digits. But that may not be the end of the variations that you need to match so you may be better with a much fussier regex. For example:

my @runs = $str =~ /".*?\\([^\\"]*)"[^"]*"[^A-Z]*((?:(?! size).)+)/g;

DWIM is Perl's answer to Gödel

In reply to Re: newbie parse Q by GrandFather
in thread newbie parse Q by whatperl

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.