#!/usr/bin/perl -w
use Encode;

use URI;
use HTML::TreeBuilder;

use Data::Dumper;

my $urldata= '<div id="secondaryActivitiesTree" class="jstree-classic">
<ul>
<li><a id="07200" href="http://example.com/a/crude-oil-petroleum-production/07200/">Crude oil (petroleum) production</a></li>
<li><a id="07440" href="http://example.com/a/gas-production/07440/">Gas production</a></li>
<li><a id="07480" href="http://example.com/a/pipeline-administration/07480/">Pipeline administration</a>
<ul>
<li><a id="07200" href="http://example.com/a/crude-oil-petroleum-production/07200/">Crude oil (petroleum) production</a></li>
<li><a id="07440" href="http://example.com/a/gas-production/07440/">Gas production</a></li>
<li><a id="07480" href="http://example.com/a/pipeline-administration/07480/">Pipeline administration</a>
</div>';

my $p = HTML::TreeBuilder->new_from_content(Encode::decode_utf8($urldata));
my $meta = join ' ', map { $_->as_text } $p->look_down( 'class', 'jstree-classic' );
print $meta;