TIMTOWTDI: Using my favourite date-related module Date::Calc

use Date::Calc qw(Week_of_Year);
$date =~ /(\d\d)(\d\d)(\d\d)/;
($week,$year) = Week_of_Year(2000+$3,$1,$2);
[download]

Please look at the documentation of the module why returning the year makes sense...

HTH, Rata