Select Code to Download

$drive =~ s/^(\\\\\w+\\\w+\$?)(\\)?$/$1\\/;

$drive =~ s/^(\\\\[^\\]+\\[^\\]+\$?)(\\)?$/$1\\/;