Help for this page
my $string = 'AAABCDAAADCBAAABBDAAA'; my @matches = $string =~ /AAA\w+AAA/g;
AAABCDAAA AAADCBAAA ... AAABCDAAADCBAAA AAADCBAAABBDAAA AAABCDAAADCBAAABBDAAA