Select Code to Download

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

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