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