Then do option 2 or 3. Option 2 is pretty simple:

s/(\\)|([...])/ $1 ? "\\\\" : sprintf "\\%02X", chr $2 /ge;
my @elements= parseXML();
s/\\(\\|..)/ length $1 == 1 ? "\\" : chr hex $2 /ge
    for @elements;
[download]