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

##</code><code>##

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