perl
-Mre=debug -e '$re =  qr/^a(b(cd?)?)?/;'