@group1 = ('A','B','C','D');
@group2 = ('E','F','G','H');
$string='ABDCDEFABDECAFBBCDAGH';
while ($string =~ /([@group1]{5}[@group2]{2})/g)
{
    print "$1\n";
}

##</code><code>##

ABDCDEF
BBCDAGH