my $date = dateconverter($date_begin);
print $date, "\n";

sub dateconverter {
  my @bits = split /[- :]/, $_[0];
  return join ".", @bits[0,1,2];
}