knoppix@Microknoppix:~$ perl -E '
> $bp = q{\\dirA\dirB\dirC};
> say $bp;'
\dirA\dirB\dirC
knoppix@Microknoppix:~$ perl -E '
$bp = q{\\\dirA\dirB\dirC};
say $bp;'
\\dirA\dirB\dirC
knoppix@Microknoppix:~$ perl -E '
$bp = q{\\\\dirA\dirB\dirC};
say $bp;'
\\dirA\dirB\dirC
knoppix@Microknoppix:~$ perl -E '
$bp = q{\\\\dirA\\dirB\\dirC};
say $bp;'
\\dirA\dirB\dirC
knoppix@Microknoppix:~$

##</code><code>##

knoppix@Microknoppix:~$ perl -E '
> $bp = q{\\\\dirA\\dirB\\dirC};
> say $bp;
> $cp = q{\\\\dirA\\dirB\\dirC\\dirD\\dirE};
> say $cp;
> @bpParts = split m{\\}, $bp;
> @cpParts = split m{\\}, $cp;
> do { shift @bpParts; shift @cpParts } while @bpParts;
> $rp = join q{\\}, @cpParts;
> say $rp;'
\\dirA\dirB\dirC
\\dirA\dirB\dirC\dirD\dirE
dirD\dirE
knoppix@Microknoppix:~$