Select Code to Download

my $digits_re = qr{ \d+ }msx;

...
    \s*
  \z
}msx;

#!/usr/bin/perl
use strict;
...
        $year+1900, $month+1, $day
    );
}