#!/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;