Untitled

#!/usr/bin/perl -w

use Modern::Perl;
use Mojo::DOM;

my $dom = Mojo::DOM->new('<html><div><div class="somediv"><ul><li><a href="http://one">one</a>ID1</li><li><a href="http://two">two</a>ID2</li><li><a href="http://three">three</a>ID3</li></ul></div></div></html>');
 foreach my $li ($dom->find('div[class=somediv] > ul')->children) {
 	say $li;
 	say '-------------';
 }


output:
debian-min /fs/data/Documents/Dropbox/Dev/perl/li # ./test.pl
<li><a href="http://one">one</a>ID1</li>
<li><a href="http://two">two</a>ID2</li>
<li><a href="http://three">three</a>ID3</li>
-------------


expected output:
debian-min /fs/data/Documents/Dropbox/Dev/perl/li # ./test.pl
<li><a href="http://one">one</a>ID1</li>
-------------
<li><a href="http://two">two</a>ID2</li>
-------------
<li><a href="http://three">three</a>ID3</li>
-------------