in reply to regexp with mismatches

123(?:.DD|D.D|DD.)

In Section Seekers of Perl Wisdom