$ 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 REFCNT = 1 FLAGS = (POK,IsCOW,pPOK,UTF8) PV = 0x1c22ea0 "\nBr\303\270ndby IF\n"\0 [UTF8 "\nBr\x{f8}ndby IF\n"] CUR = 158 LEN = 160 COW_REFCNT = 1