my $date = "1970-01-01";

my ($year,$month,$day) = split /\-/, $date;

my $new_date = $day.'.'.$month.'.'.$year;