sub formatDate
{
    return join q{.}, reverse split m{-}, (split m{\s+}, $_[0])[0];
}