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__