my $SplitAt = "\\\\";
my @SubDirs = split($SplitAt, $PathOnly);