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