use Time::Local; ($day,$mon,$year,$hours,$min,$sec) = split /[- :]/,"27-Jun-2001 12:08:19.17"; print "$day,$mon,$year,$hours,$min,$sec\n"; $time = timelocal($sec,$min,$hours,$day,$mon,$year); print "$time\n"; print scalar localtime $time;