use strict;
use LWP::Simple;

my $url = "http://amazon.com/o/tg/cm/browse-communities/-/" .
          $circleID . "/t/";

#Request the URL
my $content = get($url);
die "Could not retrieve $url" unless $content;

 use HTML::TokeParser;
 use Data::Dumper;

 $p = HTML::TokeParser->new(\$content) ||
      die "Can't open: $!";

 while (my $token = $p->get_tag( 'title' )) 
 {
     print Dumper ($token);
     #...
 }