Select Code to Download

$ od -c xx.XML
0000000   <   ?   x   m   l       v   e   r   s   i   o   n   =   "   
+1
...
0000200   a   l   u   e   >   B   r 370   n   d   b   y       I   F   
+<
0000220   /   V   a   l   u   e   >   <   /   x   x   >  \n
0000235

$ perl -le 'use 5.016;use Devel::Peek; my $xml = do {local $/ = undef;
+ open(my $fh, "<:encoding(ISO-8859-1)", "xx.XML"); <$fh>;};  say Dump
+($xml);'
SV = PV(0x1a25da0) at 0x1a3a010
...
  CUR = 158
  LEN = 160
  COW_REFCNT = 1