sub format_date {
  return join '.', (split /[-\s:]/, $_[0])[2,1,0];
}