$_=<>; $a=y/ox//; $b=y/o//; for(/./g){ print$b/$a*100,$/; $a-=1; $b-=/o/; }