You don't have to capture a character at all:

$show_choices =~ s/(?<=.)(?=.)/,/g;
[download]