$s =~ m[CDC(?:_[A-Z0-9]+){2}(?:,\s+DDC[A-Z0-9]+){2}] and print 'Matched';;