Help for this page

Select Code to Download

Select or download this
```
$_=join qq#\\\\#,split(/\\/,$_,-1);
```

Select or download this

>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;