my $re = qr/(?<yyyy>\d{4})(?<mm>\d{2}(?<dd>\d{2})/;
printf "The date was %04d-%02d-%02d", $+{yyyy}, $+{mm}, $+{dd};