Date::Parse is almost certainly installed. Use its str2time function to get a time value (str2time("15-Oct-2008")), which you can then feed to localtime (localtime($time)), from which you can extract the wday. If it is not friday, keep doing localtime($time += 60 * 60 * 24) until you get a Friday in wday.