Select Code to Download

if ($data=~/(\D{3}) *?(\d{1,2}) *?(\d{4})/) {
    $month = $datehash{$1};
...
    $year=$3;
    $sortingdate=join '', $year, $month, $day;
}

my %datehash;
@datehash{ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) } =
...
__DATA__
Oct 16 2004 11:09:19:943AM
Mar 3 2007 10:30:31:170PM