This works for me:

my $string = 'c:\\tmp/sup';
$string =~ s![\\/]!\\\\!g;
print $string,$/;
__DATA__
c:\\tmp\\sup
[download]

Once again, I am too late...