my $string="AAABBBCCCCDDDEEEFFFGGGHHHIII";
my @patterns=('BBB','DDD');
my @index;
foreach(@patterns){
while($string=~m/\G([A-Z]{3})+?$_/g){
push(@index,$-[2]);
pos($string)=$-[2];
}