@group1 = ('A','B','C','D');
@group2 = ('E','F','G','H');

$string='AHIGURBOSUOGUBSREGPIUABGAPPRSIUBGSR';

$string =~ /([@group1]{5}[@group2]{2})/;
print "$1\n";