You could do

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

but, for maintainability, you are probably better off breaking it down over two or three lines.

Cheers,

JohnGG