How do i change all dashes to commas except the first three

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

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

# As is, assumes at least 3 commas are found.
my ($pre, $post) = /^((?:[^-]-){3})(.*)/s;
$post =~ s/-/,/g;
$_ = "$pre$post";
[download]

# As is, assumes at least 4 commas are found.
my @parts = split(/-/, $_, -1);
$_ = join(',', join('-', @parts[0..3]), @parts[4..$#parts]);
[download]

is there a way to do the first question along with removing white spaces, replacing pipes with commas (except first) all in one line

Yup

s/\|//; s/[|\s]+//g; my $c = 0; s/-/$c++ < 3 ? '-' : ','/eg;
[download]

s/\|//; s/\|/,/g; s/\s+//g; my $c = 0; s/-/$c++ < 3 ? '-' : ','/eg;
[download]

Update: Fixed rushed code as per reply.