16 - HTML::TokeParser use HTML::TokeParser; my $stream = HTML::TokeParser->new ( \$content ) or die $!; #
Headline here
while ( $tag = $stream->get_tag("div") ) { if ($tag->[1]{class} and $tag->[1]{class} eq 'arr') { my $token = $stream->get_tag("a"); my $url = "http://news.bbc.co.uk/$token->[1]{href}"; my $headline = $stream->get_trimmed_text('/a'); print "$headline\n\t$url\n"; } }