Also, following on from jryan's idea here is a version that uses split:

    $_ = "X1aaX2bbX3heeX4...X5loveUX6XXXX7X8" ;

    my @match = split /(X\d)/;

    print "String: " . $_;
    foreach my $word (@match){
        print $word;
        print "\n" unless $word =~ /X\d/;
    }
[download]

--
John.

Or, improving on both of ours, just:

@match = split (/(?=X\d)/,$_);
[download]

For some retarded reason last night, I thought that split "kept" the part that it split on, forgetting that the trick to do that was to use a lookahead. :)

In Perl6:

### <Perl6>

@match = m:e/ X \d : .+? <before X \d | $ > /;

### </Perl6>
[download]

I do think they should give shortened versions of the <before > and <after > assertions. Oh well, maybe they'll throw it in.

(Note for onlookers: The colon within the regex is thrown in for a small bit of engine optimization, and actually also helps in detecting malformed strings.)

kelan

---

Perl6 Grammar Student

Its much easier to use split:

$_ = "X1aaX2bbX3heeX4...X5loveU";
@match = split (/X\d/,$_);
[download]

That's not what I want.

aa
bb
hee
...
loveU
[download]

in fact I realy want to know what pattern can match the result I expected--I mean below:

X1aa
X2bb
X3hee
X4...
X5loveU
[download]

Try this:

@match = /X\d[^X]+/g;
[download]

Basically it slurps up everything that's not an 'X' after doing matching 'X\d'.