>perl -e "my @s=qw(\\\\c\\c\\ d\\d aa bb); for my $x(@s){($y=$x)=~ s#(\\+)#$1$1#g;print qq{$y=$x;\n}}"
\\\\c\\c\\=\\c\c\;
d\\d=d\d;
aa=aa;
bb=bb;