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

##</code><code>##

$date =~ s/^(\w+) (\w+) (\d+) \S+ (\d+)$/$1, $2 $3, $4/;