my $url = "http://.......";
my $user_agent = new LWP::UserAgent;
my $report = $user_agent->get($url);
$report = $report->content;
my @code = split("\n", $report);

##</code><code>##

<ticket ... state="bad" ....>
<version="1.23.4.8">
....
<task ... />
....
</ticket>
<ticket ... state="good" ....>
<version="bad">
....
<task ... />
....
</ticket>
<ticket ... state="good" ....>
<version="1.12.32.4">
....
<task ... />
....
</ticket>
<ticket ... state="good" ....>
<version="1.1.3.9">
....
<task ... />
<task ... />
<task ... />
....
</ticket>

##</code><code>##

<ticket ... state="good" ....>
<version="1.12.32.4">
....
<task ... a="1.1.3"/>
....
</ticket>
<ticket ... state="good" ....>
<version="1.1.3.9">
....
<task ... a="1.2"/>
<task ... a="5.1"/>
<task ... a="8"/>
....
</ticket>