...
use WWW::Mechanize;
my $url = shift; # any .xml RSS feed url

my $mech = WWW::Mechanize->new();
$mech->get( $url );
my @content = split /\n/, $mech->content;
my $title_pattern = "<title>(.*?)</title>";
my $description_pattern = "<description>(.*?)</description>";
my @titletags = grep s/$title_pattern/$1/i, @content;
my @descriptiontags = grep s/$description_pattern/$1/i, @content;

my $thetitle=$titletags[0];
if ( $thetitle !~ s/<\!\[CDATA\[//g ) {}
if ( $thetitle !~ s/Librivox\://g ) {}
if ( $thetitle !~ s/]]>//g ) {}
print "$thetitle\n";

my $thedescription=$descriptiontags[0];
if ($thedescription !~ s/<\!\[CDATA\[//g ) {}
if ($thedescription !~ s/]]>//g ) {}
print "$thedescription\n";