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