There are 3 ways I can think of off the top of my head, depending on what your assumptions are about the text. The way I would do it is:

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

Someone, of course, is going to post a nifty regex to do it. That could look something like:

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

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!