#!/usr/bin/perl
my $string = 'this is a double backslash: \\\\';
$string =~ s/\\\\/\\/g;
IyEvdXNyL2Jpbi9wZXJsCm15ICRzdHJpbmcgPSAndGhpcyBpcyBhIGRvdWJsZSBiYWNrc2xhc2g6IFxcXFwnOwpwcmludCAkc3RyaW5nIC4gIlxuIjsKJHN0cmluZyA9fiBzL1xcXFwvXFwvZzsKcHJpbnQgJHN0cmluZzs=