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