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

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.