Using R, this would collapse to a single line:
> a <- "00012301200123456780000001230100001234500"
>
> paste(lapply(lapply(strsplit(strsplit(paste(a,"0",sep=""),"0")[[1]],""),rev), paste, collapse=""), collapse="0")
[1] "00032102100876543210000003210100005432100"
>