#!/usr/bin/perl --
use strict; use warnings;
use Date::Format();
use Date::Parse();
use feature qw/ say /;
my @t  = Date::Parse::strptime( q/2012-02-25T18:48:34.835-05:00/);
say Date::Format::strftime(
    q/%Y-%m-%d %H:%M:%S/,
    @t,
);
__END__
2012-02-25 18:48:34