my ($year, $month, $day, $hour, $min, $sec) = 
    split /[- :]/, $_[0];

##</code><code>##


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

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