use strict;
use warnings;

my @group1 = ('A','B','C','D');
my @group2 = ('E','F','G','H');
my $string="DEAB CDGHEF";
print "Match: $1\n" while $string =~ /([@group1]{4})/g;