#!/usr/bin/perl
use strict;
use warnings;

use open ':locale';             # tell perl to use the $LANG environment encoding for STDOUT/IN/ERR
                                # check 'man 3 open' for details; but this is quite important

use HTML::Entities;             # used to decode HTML &; entities
use Encode qw(decode);          # used to decode utf8/iso into perls internal representation (which is utf8)

my $data = {
        'href' => 'http://www.accountancyage.com/accountancyage/news/2159769/kpmg-sets-retail-think-tank',
        'teaser' => '<p><small>AccountancyAge.com, <a href="http://www.accountancyage.com/">Accountancy Age</a>, Thursday 6 July 2006 at 00:00:00</small></p><p><i> Firm forms partnership with retail research group </i></p><p>KPMG has launched the &#226;&#128;&#152;Retail Think Tank&#226;&#128;&#153; (RTT) aimed at establishing &#226;&#128;&#152;the true health and status\'&#194;&#160;of the retail sector. The Big Four firm has joined forces with retail research group...</p><p><small>&gt;&nbsp;<a href="http://www.accountancyage.com/accountancyage/news/2159769/kpmg-sets-retail-think-tank"><i>Read the full article</i></a></small></p>',
        'title' => "KPMG sets up retail \x{e2}\x{80}\x{98}think tank\x{e2}\x{80}\x{99}",
};

my $html = $data->{teaser};
decode_entities($html);                 # because it's html, we need to do this first
$html = decode('utf8',$html);           # now 'parse' the utf8

my $title = $data->{title};             # this is 'raw' utf8; the \x{e2} sequences indicate this
$title = decode('utf8',$title);         # so just parse it

print "** $title:\n";
print "$html\n";