Another way to do this(since you are asking for a regex solution)

$line =~ s/(\s+)/my $n++ < 6 ? ',': $1/eg;

not very efficient though..