Uh, there's always Date::Parse:
str2time("31-JAN-2007");