$html=$response->content;
$treeparse=HTML::TreeBuilder->new;
$treeparse->parse($html);			
$treeparse->traverse(\&treewalker);
$treeparse->delete();

sub treewalker
{
	my ($node, $start, $depth) = @_;
        if (ref $node) 
	{
	   
             my $tag = $node->tag;

	     if ($tag eq "span")
	     {
               ....

         }
     }
}