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;

##</code><code>##

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