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