Select Code to Download

    $str_date =~ /^\w*\s*\w*\s*(?<month>\w*)\s*(?<day>\d*).*(?<year>\d
+{4})$/;

    my $date = sprintf("%4d%02d%02d", $+{year}, $months{$+{month}}, $+
+{day});