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
[download]