#!/usr/bin/perl -w

use strict;
use Encode;
use HTML::Entities;
use HTTP::Request;
use LWP::UserAgent;

my $url = shift || 'http://perlmonks.com/headlines.rdf';
my $ua  = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

die $res->status_line unless $res->is_success;
$res = $res->content;

while ($res =~ s,<title[^>]*>\s*(.*?)\s*</title>,,si) {

  my $title = $1 || '';
  next unless $title;

  $title = HTML::Entities::decode($title);
  $title = HTML::Entities::decode($title);
  $title = HTML::Entities::decode($title);
  $title = Encode::decode_utf8($title);

  $title =~ s/strip_stuff_like_html_and_cdata_tags//g;

  print HTML::Entities::encode($title), "\n";
}