use Date::Parse;

print str2time("Sat Jul  7 20:55:04 2012")."\n";       # -> 1341687304
print str2time("Sat Jul  7 20:55:04 2012", "CET")."\n";# -> 1341690904