There are somes things that aren't clear : does the number belong to data, or is it another information ?

Here, I've considered that numbers before the STRUCT keyword and data are not the same. Plus I've taken into account the fact that data may contains numbers. What make these numbers different is that they do not precede a STRUCT keyword.

To sum up the proposed solution to your problem : match everything and then remove what you are not interested in. 

# Text wrapped to fit in the screen
my $text = "0011222STRUCTdata..........6ab.." .
           "02121STRUCTdata.........." .
           "021232STRUCTdata......" .
           "02342STRUCTdata......";

my @matches = $text =~ m/(\d+)          # First match some numbers
                         STRUCT         # Then the STRUCT keyword 
                         (.+?)          # Then the data, that have to 
                                        # be followed by 
                         (?=            # (look-ahead assertion)
                          (?:\d+STRUCT  #    - numbers and 'STRUCT'
                                |       #  or
                             $          #    - end of line
                          )
                         )/xg;

# Then remove the first two matches that is first numbers and 
# first data
@matches = splice @matches, 2;

{
  local $, = ",";
  print @matches, "\n";
}

[download]

The look ahead trick helps to easily manage numbers in the data text.


--
zejames

In reply to Re: Pattern Matching request by zejames
in thread Pattern Matching request by Novice_1

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.