Select Code to Download

    my $xml = do {
        local $/ = undef;
        open (my $fh, "<:encoding(ISO-8859-1)", $file) or die "Failed 
+to open $file - $!";
        <$fh>;
    };

    my $xml = do {
        local $/ = undef;
        open (my $fh, "<:raw", $file) or die "Failed to open $file - $
+!";
        <$fh>;
    };