$o=y/o//,s#.#${$&}-=print$o/length$',"e2
"#gefor<>