Re^2: Find and extract substring(s) within larger string.

[hdb]

Perl provides the $- and $+ @- and @+ arrays for this purpose (thanks to kcott pointing out that arrays have the @ sigil...):

use warnings;
use strict;
#                    1         2         3         4  
#          0123456789012345678901234567890123456789012345678
my $dna = 'xxxxxxpecbcbccrlxxxxxxpeeeerlxxxxxplxxxxxPeRLxxxx';
my $re  = qr/p.*?l/i;

while ( $dna =~ m[($re)]g ) {
    print join " " => $1, $-[0], $+[0]-1, $/;
}

A correction of -1 is required, otherwise the matches are too long by one as in your code above.

[2teez]

Hi hdb,
A correction of -1 is required, otherwise the matches are too long by one as in your code above.
You are right... my bad!