#!/usr/local/bin/perl
use strict;
use warnings;
use autodie;
use Data::Dump;
use HTML::Tree;
use LWP::Simple qw(get);

my $content=get('http://www.ncbi.nlm.nih.gov/genome/?term=Xylella_fastidiosa');

my $tree = HTML::Tree->new();

$tree->parse($content);

my $data =$tree->look_down(
	'_tag' =>'div',
	class => 'genome_descr'
	);

print $data->as_HTML;

##</code><code>##

<div class="genome_descr"><p><b>Submitter: </b><a href="http://aeg.lbi.ic.unicamp.br/xf/" target="_blank">Sao Paulo state (Brazil) Consortium</a></div>

##</code><code>##

my @data =$tree->look_down(
	'_tag' =>'div',
	class => 'genome_descr'
	);