#!/usr/bin/perl -w
use strict;
use Unicode::String;
use XML::RSS;

my $latin1 = "Größter Anstieg seit März 1998";
my $utf8 = Unicode::String::latin1( $latin1 )->utf8;
    
print "1: $utf8 - $latin1 \n";        

my $rss_content = <<'EOF';
<?xml version="1.0" encoding="ISO-8859-1" ?><rss version="0.91"><channel><item>	<title>Größter Anstieg seit März 1998</title></item></channel></rss>
EOF

my $rss = new XML::RSS;

$rss->parse( $rss_content );

foreach my $item ( @{ $rss->{items} } ) {
    
    # XML::RSS always returns its findings in UTF8

    my $utf8_from_xml_rss = $item->{title};

    print "2: $utf8_from_xml_rss - $latin1 \n";        
}


# under Perl 5.6.0 and earlier the output is:
# 1: GröÃter Anstieg seit März 1998 - Größter Anstieg seit März 1998 
# 2: GröÃter Anstieg seit März 1998 - Größter Anstieg seit März 1998 


# under Perl 5.6.1 the output is
# 1: GröÃter Anstieg seit März 1998 - Größter Anstieg seit März 1998 
# 2: GröÃter Anstieg seit März 1998 - GröÃter Anstieg seit März 1998