qr/^ab?(c|d)$/  =>  qw/ac abc ad abd/;

##</code><code>##

$ perl -e 'use re "debug"; /^ab?(c|d)$/'