use strict; use warnings; use Mojo::DOM; my $data = join '',; my $dom = Mojo::DOM->new( $data ); foreach my $memb ( $dom->find('[id="members-list"] li')->each ){ print "\n########\n"; my $writers_list = $memb ->find('*') ->map( 'text' ) ->grep( qr/\S/ ) ->join("\n") ; print $writers_list; } __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
#### my %members = ( 'Dante Alighieri' => { 'avatar_url' => 'URL', 'fa fa fa-phone' => '02222222', 'fa fa fa-mobile-phone' => '333333333', 'fa fa fa-envelope-o' => 'dante.alighieri@example.com' 'fa fa fa-check' => 'Poets and Writers', }, ... );