use warnings;
use strict;
use HTML::TreeBuilder;
use WWW::Mechanize;
use Encode;
my $mech = WWW::Mechanize->new( agent => "iEatYourFaceBot/666" );
$mech->get("http://www.businesswire.com/portal/site/qsr/permalink/?ndmViewId=news_view&newsId=20100622005402");
my $html = HTML::TreeBuilder->new_from_content($mech->content);
my $title = $html->look_down( sub{ $_[0]->tag() eq 'title' } );
print encode_utf8($title->as_text), $/;
__DATA__
yields: Chicagoland and Northwest Indiana McDonald’s® Offer a Free Taste of McCafé at the Taste of Chicago