Select Code to Download

$PathOnly = "c:\Dir1\Dir2\Dir3";

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

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

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

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

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

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