Re^2: Perl replacement for choice.com

[jwkrahn]

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

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