Select Code to Download

my $dom      = qr{0[1-9]|[12][0-9]|3[01]};
my $month    = qr{0[1-9]|1[012]};
...
__output__

date is - 07222003

my $date_regex = qr{
  (?: .*($MMDDYYYY)|.*($DDMMYYYY)|.*($YYYYMMDD)|.*($DDMMYY)|
      .*($MMDDYY)|.*($MMDD)|.*($DDMM) )
}x;