my @date = split ' ', $date;
$date = "$date[0], $date[1] $date[2], $date[4]";