If you have Time::Piece, just use its strptime function to parse a time string and return a Time::Piece object.

Update: I missed the "without" in your query. If you don't want to use Time::Piece, go with ikegami's advice or install DateTime and DateTime::Format::Strptime.