my $c = 0; s/-/$c++ < 3 ? '-' : ','/eg;