c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"print '\\';
 print '\\\\';
 print qq{\\};
 print qq{\\\\};
 ;;
 print qr{\\};
 my $bb = '\\\\';
 print qr{$bb};
 ;;
 my $PathOnly = 'c:\Dir1\Dir2\Dir3';
 ;;
 my @SubDirs = split(m/\\/, $PathOnly);
 dd \@SubDirs;
 ;;
 @SubDirs = split($bb, $PathOnly);
 dd \@SubDirs;
"
\
\\
\
\\
(?-xism:\\)
(?-xism:\\)
["c:", "Dir1", "Dir2", "Dir3"]

["c:", "Dir1", "Dir2", "Dir3"]