@SubDirs = split(/\\/, $PathOnly);

##</code><code>##

my @SubDirs = File::Spec->splitdir( $PathOnly );