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