Re: Delimited Backtracking with Regex

in reply to Delimited Backtracking with Regex

Take advantage of regexp backtracking to find all the possibilities.

my $str = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC";
local our @matches;
$str =~ m/
   (XXX.*YYY)                 # Search and capture
   (?{ push @matches, $1 })   # Save result
   (?!)                       # Try again
/x;  
print "$_\n" foreach @matches;
[download]

outputs

XXXABCDGXXXCCCDTGYYYCCCYYY
XXXABCDGXXXCCCDTGYYY
XXXCCCDTGYYYCCCYYY
XXXCCCDTGYYY
[download]

Update: Followed japhy's suggestion

In Section Seekers of Perl Wisdom