$ScriptDir="C:\\temp\\\\";
print "1. ${ScriptDir}\n";
$ScriptDir =~ s/\\+/\//g;
print "2. ${ScriptDir}\n";
$ScriptDir =~ s/\/+/\//g;
print "3. ${ScriptDir}\n";
if ($ScriptDir =~/$\//) {$ScriptDir=~ s/$\///;}