#!/bin/perl -w
use strict;
use XML::Twig;

my $t = new XML::Twig(input_filter => 'latin1');
$t->parse( \*DATA);
print "content: ", $t->root->text, "\n";


__DATA__
<?xml version="1.0" encoding="ISO-8859-1"?>
<doc>Humörsvängningar</doc>