[Saruman]

если есть Date::Manip, можно просто им распарсивать исходную строку, после чего снова собирать ее в нужный стринг. К примеру:

use Date::Manip;

$string = 'Fri, 23 Jun 2006 14:18:08 +0300';
$date = ParseDate($string);

print &UnixDate($date, "%b %e, %Y, %T");