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