#!perl

use strict;
use warnings;

my $string = qq[FGTXYZGTFABCGHABCFGTXYZADXYZGTYABC];

while ($string =~ /[XYZ]{3}([A-Za-z]{0,21}?)[ABC]{3}/g) {
   print $-[0] . ', ' . length($1) . $/;
}
__OUTPUT__
3, 3
20, 8
[download]

it doesn't seem to work for
FGTXYZABCABC
it gives 3, 0
when it should give
3,0
3,3
thanks

Sorry, posted on wrong position in tree, see node 284703.

When I read the OP's example, and the followup solution, I did worry about one thing. Though the OP did show the character classes [XYZ] and [ABC] in his example regular expression, his example test string used exactly those same characters, in the same order. My concern is that it is possible that he intends to match exactly XYZ and ABC (and of course whatever falls between up to 21 characters).

What I'm getting at is that:

/[XYZ]{3}([A-Za-z]{0,21}?[ABC]{3}/g
[download]

will match both of the following strings:


"ASDFXYZOtherCharsABCASDF"
"ASDFXXXOtherCharsAAAASDF"
[download]

If he intended to specifically match XYZ, and not XXX, then he needed the following regexp instead:

/XYZ([A-Za-z]{0,21}?ABC/g
[download]

Again, the OP's original regexp confirms that he wanted to match three characters from a class, zero to 21 characters from a class, and then three characters from another class.

But his choice of example strings showed him looking to match three specific characters, followed by zero to 21 characters from a class, followed by three more specific characters.

I just wanted to point out that there is a difference, just in case it turns out to be significant in the implementation planned by the original poster.

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein