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