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