http://qs1969.pair.com?node_id=836122


in reply to Insert comma after every character

Another way to do this would be using the substitution operator with \B.

C:\perlp>perl -e "$_='FBD';s/\B/, /g;print" F, B, D