I suggest you take a look at POSIX::strptime.
it might give you more abilities and a cleaner way to do what you ask.

Enjoy,
Mickey