$ perl -e 'print "\Qab,cd\Uef,gh\Lij,kl\Emn,op\Eqr,st\Euv,wx\n";'
ab\,cdEF\,GHij\,klmn\,opqr,stuv,wx

##</code><code>##

ab\,cdEF\,GHij\,klMN\,OPqr\,stuv,wx

##</code><code>##

$ perl -e 'print "\Uab,cd\Qef,gh\Lij,kl\Emn,op\Eqr,st\Euv,wx\n";'
AB,CDEF\,GHij,klmn,opqr,stuv,wx

##</code><code>##

AB,CDEF\,GHij\,klMN\,OPQR,STuv,wx