local our $c = 0; s/-(?(?{ $c++ < 3 })(?!))/,/g;