$c //= $d;

##</code><code>##

$c = defined $c ? $c : $d;

##</code><code>##

$c = $d unless defined $c;

##</code><code>##

 $regex = qr# (\d) (??{ my $c = $1 unless defined $c; ++$c })+ #x;