#!/usr/bin/perl

use strict;
use warnings;

use Time::Piece;
use Time::Seconds;

my $DATEFORMAT_FROM = '%d.%m.%y %H:%M:%S';
my $DATEFORMAT_TO = '%Y%m%d%H%M%S';  

my $from = "05.12.14 12:00:44,050000";
$from =~ s/,\d+//;
my $to = "05.12.14 12:00:44,070425";
$to =~ s/,\d+//;

my $t1 = Time::Piece->strptime( $from, $DATEFORMAT_FROM );
my $t2 = Time::Piece->strptime( $to,   $DATEFORMAT_FROM );
if ( $t1 == $t2 ) {
    $t1 += ONE_MINUTE;
    $t1 = $t1->strftime($DATEFORMAT_TO);

    $t2 -= ONE_MINUTE;
    $t2 = $t2->strftime($DATEFORMAT_TO);
}

print $t1, "\n", $t2, "\n";