sub format_date {
  return join '.', (split /[^\d]+/, $_[0])[2,1,0];
}