>572
他の環境で動かない可能性高いけど，自作するならこんな感じかなぁ。

use Time::Local;
sub parse_date {
my($time,%month,$sec,$min,$hour,$mday,$mon,$year);
$time = shift;
@month{qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)} = (0..11);
($mon,$mday,$hour,$min,$sec,$year) =
($time =~ /\w{3} (\w{3}) (\d{1,2}) (\d{2}):(\d{2}):(\d{2}) (\d{4})/);
return timelocal($sec,$min,$hour,$mday,$month{$mon},$year);
}

#以下テスト
$date = 'Fri Feb 8 20:42:33 2002';
$time = parse_date($date);
print "$date\n"; #Fri Feb 8 20:42:33 2002
print "$time\n"; #3096040756
print localtime($time)."\n"; #Fri Feb 8 19:19:16 2002