@matches7 = ($text =~  /(.{0,0})\K(---\s*)(.{0,200})/gisx);