my $new = join '', reverse split /\//, $date;