DB<9> x @a= split /(?:\\\\X)|(?:(?<!\\)X)/, $escaped_str 
0  ''
1  'a\\X\\\\b'
2  'c'
3  'd'
  DB<10> p $escaped_str 
Xa\X\\bXc\\XdX