Select Code to Download

use Date::Parse;

...
my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime("...string...");
$month++;
$year += 1900;

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