My preferred Swiss Army Knife for date-handling is Date::Calc. It offers Monday_of_Week, which you can use after identifying the week using Week_of_Year.