my $count = 1;
my $str = "a,b,c,d";
$str =~ s/((,.*?){$count}),/$1|/;
print $str;