As Date::Manip is very slow, you maybe want to try Date::Parse for parsing the date and either printf or Date::Format for a formatted output:

use Date::Parse;

# get a time() compatible value
my $time = str2time("...string..."); 

# or an array
my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime("...string...");
$month++;
$year += 1900;
[download]

and:

 
use Date::Format;
my $format = "%a %b %d %l:%M %p ;%Z"; 
print time2str($format, time);
[download]

Hope this helps.

alex pleiner <alex@zeitform.de>
zeitform Internet Dienste