print re_strictness qr/.../, "\n";

##</code><code>##

use 5.014;
use strict;
use warnings;
use re ();
use List::Util 'sum';

sub re_strictness ($) { sum map length, re::regmust shift }

print
	re_strictness qr/^Dad+y$/, "\n",
	re_strictness qr/Dad+y/, "\n",
	re_strictness qr/D.+/, "\n",
;