perl -e '$0="";$r=`uname -a`;$r=~s/(?<=\.)\d+(?!\.|\d)/${$z=$&==0?$&+1
+:$&-1}$z/g;print $r;'
[download]

this will decrease with 1 unless it's 0 (then it increments)

dmql++