<>=~s/./$\+=$&?$&:10/ger;print