python
a=['\\', '"', "'", '{}', '\n'];c='a={};c={}{}{}b={}{}{}x=str.format;print(x(x("{}",{}),{}))'
b="a,'{0}'',c,'{0}'{0}n','{1}',b,'{1}{0}n','{3}','c',x(b,*a)"
x=str.format;print(x(x("{}",c),a,'\'',c,'\'\n','"',b,'"\n','{}','c',x(b,*a)))

perl:
$d=q($d=D;print join '',map{$_ eq "\x{0044}"?"q($d)":$_}split //,$d);print join '',map{$_ eq "\x{0044}"?"q($d)":$_}split //,$d