Help for this page
@SubDirs = split(/\\/, $PathOnly);
my @SubDirs = File::Spec->splitdir( $PathOnly );