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