my $script_dir = 'C:\\temp\\\\';
print "1. $script_dir\n";

$script_dir =~ s{\\+}{/}g;
print "2. $script_dir\n";

$script_dir =~ s{/$}{}g;
print "2. $script_dir\n";

##</code><code>##

$script_dir =~ tr{\\}{/}s;

##</code><code>##

$script_dir =~ s{\\+(?=(.)?)}{"/"x defined $1}ge;

##</code><code>##

$_ = s/\\+$//r =~ s{\\+}{/}gr for $script_dir;