Select Code to Download

my @months = (qw(jan feb mar apr may jun jul aug sep oct nov dec));

...
my $month_re = join "|", @months;

$month =~ s/($month_re)\w*/$month_num{$1} || "$1"/ei;