Select Code to Download

use strict;
use warnings;
...
           if ${ $groups[ $idx ] } =~ m{((.)\2{$quant})};
    }
}

| . . . ^ . . . | . . . ^ . . . | . . . ^ . . . | . . . ^ . . . 
...
Found acac at offset 22
Found 4545 at offset 26
Found 4545 at offset 28