#!/usr/bin/perl -l

use strict;
use warnings;
use Time::Piece;

my $time = Time::Piece->strptime(
    "2013-02-15 19:07:292", 
    "%Y-%m-%d %H:%M:%S");
print $time;