$string1 =~ s/\\\\/\\/g;