if(($year,$month,$day) = Date::Calc::Parse_Date("Sat, 9 Feb 2008 17:14:18 -0730"))
 {
     printf "\n[*] %d %d %d", $year,$month,$day;
 }