sub formatDate{
	my $date = (split /\s+/, shift)[0];
	$date =~ s/(\d{4})\-(\d{2})\-(\d{2})/$3\.$2\.$1/;
	return $date;
}