$datum3 = join ".", (split /\./, $datum2)[0,1];$datum3 .= ".";