(my $timestamp = $datum) =~ s/(\d{2})\.(\d{2})\.(\d{2})\ (\d{2})\:(\d{2})\:(\d{2})/20$3$2$1$4$5$6/;