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