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