$/--;/o/?print+($",A..Z)[$.%27]:$.++for<>=~/o|p/g