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;
and:
use Date::Format;
my $format = "%a %b %d %l:%M %p ;%Z";
print time2str($format, time);
Hope this helps.
alex pleiner <alex@zeitform.de>
zeitform Internet Dienste