Instead of re-inventing the wheel, you should take a look at existing wheels, for example Date::Parse - maybe some of them work for you out of the box, or with little effort?