utilitarian@busybox ~/$ perl -MTime::Piece -E 'say Time::Piece->strptime("080614", "%m%d%y")->week';
32