my $count = 3; my $str = "a,b,c,d"; substr $str, $count, 1, '|'; print $str;