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