#!/usr/bin/perl -w
use strict;

use XML::Parser;
use Text::Iconv;

my $text= <DATA>;

Text::Iconv->raise_error(1);
my $converter= Text::Iconv->new( utf8 => 'latin1');
my $in_latin1=  $converter->convert( $text);
print "text in latin1: $in_latin1\n";

__DATA__
<title>Os cem melhores contos brasileiros do século /Italo  Moriconi, organização, introdução e refer</title>