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