#!/usr/bin/perl
use warnings;
use strict;

use DateTime;


my @dt;
for ('2014/01/25 23:11:14',
     '2014/01/26 00:30:37') {
    my ($year, $month, $day, $hour, $minute, $second) = split /[^0-9]/
+;
    push @dt, 'DateTime'->new(
            year      => $year,
            month     => $month,
            day       => $day,
            hour      => $hour,
            minute    => $minute,
            second    => $second,
            time_zone => 'floating',
        );
}

my %diff = ( $dt[1] - $dt[0] )->deltas;
for my $unit (qw(months days minutes seconds)) {
    print "$unit: $diff{$unit}\n" if $diff{$unit};
}
[download]