<>;<>=~s/./++${$&<2?*-:$&<9||$---?c:b}/ger;print$c+$--($-=$-/2-$b/4+.8)