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

$Umwandlung_TS_I  =~ s/,\d+//;
$Umwandlung_TS_II =~ s/,\d+//;

my $TS_I_Konvertierung  = Time::Piece->strptime( $Umwandlung_TS_I,  $DATEFORMAT );
my $TS_II_Konvertierung = Time::Piece->strptime( $Umwandlung_TS_II, $DATEFORMAT );

if ( $TS_I_Konvertierung == $TS_II_Konvertierung ) 
   {
    $TS_I_Konvertierung  -= ONE_MINUTE;
    $TS_I_Konvertierung   = $TS_I_Konvertierung->strftime($DATEFORMAT);

    $TS_II_Konvertierung += ONE_MINUTE;
    $TS_II_Konvertierung  = $TS_II_Konvertierung->strftime($DATEFORMAT);
   }

print "\n";
print "Konvertierter TS I  : $TS_I_Konvertierung",  "\n"; 
print "Konvertierter TS II : $TS_II_Konvertierung", "\n";
print "\n";