Sorry this in english
At line 128 there is
my($day, $month, $year, $hour, $min) = ($_[0] =~ /^(\d{2}).(\d{2})\.(\d{4}) (\d{2}):(\d{2})$/);
I think the date should two \. for the separators to force the date to be 26.03.2017 or just . to allow any separator.