Date::Calc function Decode_Date_EU:
This function scans a given string and tries to parse any date which might be embedded in it.