$ perl -E '
say for (
   qq{a\x5cb},
   qq{a\x5c\x5cb},
   qq{a\x5c\x5c\x5cb},
   qq{a\x5c\x5c\x5c\x5cb},
   );'
a\b
a\\b
a\\\b
a\\\\b
$

##</code><code>##

$ perl -E '
> @arr = map { q{A} . do { chr 0x5c } x $_ . q{B} } 1 .. 4;
> say for @arr;'
A\B
A\\B
A\\\B
A\\\\B
$