my @dateparts = split '/|\s+', $date;

##</code><code>##

@dateparts[0,1] = @dateparts[1,0] if $dateparts[1] =~ /^[A-Z]/;

##</code><code>##

$dateparts[2] += ($dateparts[2] > 99) ? 0 :
                     ($dateparts[2] > 9) ? 1900 : 2000;
##</code><code>##

exists $months{$dateparts[0]} or die 'Bad Month!';

##</code><code>##

print $months{$dateparts[0]},
      ' ',
      0+$dateparts[1],
      ', ',
      dateparts[2];