you could be even more liberal by using [^\d]+:

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