my $Date     = qr{(?:^|\D)($MMDDYYYY|$DDMMYYYY|$YYYYMMDD|$DDMMYY|$MMDDYY|$DDMM|$MMDD)(?:\D|$)};