#perl C:\dev\LOOSE\datetime.format.pl

use DateTime::Format::Strptime;

my $Strp = DateTime::Format::Strptime::->new(
    pattern     => '%A %B %d %Y, %r',
    locale      => 'en_US',
    on_error    => 'croak',
);

my $dt = $Strp->parse_datetime(
    'Wed Feb 18 2004, 11:03:45 AM'
);

warn $dt->epoch;

$Strp = DateTime::Format::Strptime::->new(
    pattern     => '%A %B %d %Y, %r %Z',
    locale      => 'en_US',
    on_error    => 'croak',
);

$dt = $Strp->parse_datetime(
    'Wed Feb 18 2004, 11:03:45 AM EST'
);

__END__
1077102225 at C:\dev\LOOSE\datetime.format.pl line 16.
The timezone 'EST' is ambiguous. at C:\dev\LOOSE\datetime.format.pl li
+ne 24
[download]

How's that for cute ;) perldoc DateTime goes to say: Moreover, these names are not unique. For example, there is an ``EST'' at both -0500 and +1000/+1100..