$a=y/ox/x./r,$\+=/o/&3>grep!/$a/,@0for@1=@0=<>;print