$b=y/o/1/,s#.#$b-=$&*print$b/length$',"e2
"#gefor<>