use Time::Piece;
print 'Time::Piece'->strptime("080614", "%m%d%y")->week, "\n";

##</code><code>##

32