my $latest_dir =
  ( map{s/(....)(....)/$2$1/; $_} sort map{s/(....)(....)/$2$1/; $_}
    grep /^\d{8}$/, readdir DIR )[-1];