#!perl -p0
y/o/-/;s/w(.{10}|)\K\.|\.(?=(?1)w)/x/s||y/1-x/0-w/until/0/