This is hard to do, since you give no year! But for the case that the year is there at the end you can use this:

use Date::Calc qw/:all/;
my $str = "Thu Jan 8 07:01:05 2004";
$time = Date_to_Time(Parse_Date($str), $str =~ /(\d\d):(\d\d):(\d\d)/ 
+);
[download]