Select Code to Download

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

my $date = dateconverter($date_begin);
...
  my @bits = split /[- :]/, $_[0];
  return join ".", @bits[0,1,2];
}