#!/usr/bin/perl -w
use strict;
use XML::Simple;

my $data = XMLin(qq{
<item>
<title>test</title>
<description><b><font color="#dd0000">temp</font></b> try</description>
<link>http://www.nowhere.com</link>
</item>
});

print $data->{'title'}, " | ", $data->{'link'}, "\n";