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

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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