a=1
b=2\&3
c=4\\\&d=5
##</code><code>##

/[^\\]\\(?:(\\)+\1)*$/

##</code><code>##

my @split = split /(?<!\\)&/, $tosplit;