use Data::Dumper; use HTML::TreeBuilder::XPath; my $data = join '', ; my $tree = HTML::TreeBuilder::XPath->new; $tree->parse($data); $tree->eof; my %members; my @items = $tree->findnodes('//ul[@id="members-list"]/li'); for my $item (@items) { my ($member_link) = $item->findnodes('div/div[@class="item-title"]/a'); my $member = $member_link->as_text; my ($avatar_img) = $item->findnodes('div[@class="item-avatar"]/a/img'); my $avatar = $avatar_img->attr('src'); my ($phone_icon) = $item->findnodes('div//i[@class="fa fa fa-phone"]'); my $phone = $phone_icon->parent->as_text; my ($mobile_icon) = $item->findnodes('div//i[@class="fa fa fa-mobile-phone"]'); my $mobile = $mobile_icon->parent->as_text; $members{$member} = { 'avatar_url' => $avatar, 'fa fa fa-phone' => $phone, 'fa fa fa-mobile-phone' => $mobile, }; } print Dumper(\%members); __DATA__
  • Sottoscrittore

    Dante Alighieri

    active 6 days ago, 19 hours ago
    011111111 333333333 dante.alighieri@example.com Poets and Writers
  • Sottoscrittore

    Francesco Petrarca

    active 7 days ago, 22 hours ago
    02222222 francesco.petrarca@example.com Poets and Writers
#### $VAR1 = { 'Dante Alighieri' => { 'avatar_url' => 'SRCURL', 'fa fa fa-phone' => '011111111' 'fa fa fa-mobile-phone' => '333333333' }, 'Francesco Petrarca' => { 'avatar_url' => 'SRCURL' 'fa fa fa-phone' => '02222222', 'fa fa fa-mobile-phone' => '' } };