C:\usr\local\share>perl -MEnglish -wle "@_ = qw{a bcd ef}; print qq(@_); local $LIST_SEPARATOR=','; print qq(@_)"
a bcd ef
a,bcd,ef