[MacPerl] exotic date format

[Louis Pouzin]

Hi,

In a msg header received from the internet the date field is:
Date: Wednesday, January 20, 1999 9:40:11 o'clock PM EST

I tried converting a series of similar formats:

#!perl -w
$\="\n"; use HTTP::Date;
my ($d, $tim);
$d = "Wednesday, January 20, 1999 9:40:11 o'clock PM EST";
$d = "Wednesday, January 20, 1999 9:40:11 PM EST";
$d = "Wednesday, January 20, 1999 9:40:11 PM";
$d = "Wednesday, January 20, 1999 9:40:11";
$d = "January 20, 1999 9:40:11";
$tim = str2time ($d);
defined $tim ? print $tim: print 'undef';
$t = time2str ($tim);
print $t;
__END__

All variants of $d fail with str2time.
They also fail with 'localtime".

Is there a library module that recognizes this format ?

Thanks