#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TreeBuilder;
use strict;
my $base='http://www.costacrociere.it';
my $url='/it/lista_crociere/capitali_nord_europa-201206.html';
my $page = get($base.$url) or die $!;
my $p = HTML::TreeBuilder->new_from_content( $page );
my @trips= $p->look_down(_tag=>'p',class=>'itinerari-info')->as_text;
foreach my $trip (@trips){
print $trip;
}