my $class = 'ABCD';
my $xerox = join '|', split //, $class;  # create alternation
$xerox = '(?:' . $xerox . ')';  # non-capturing grouping