Select Code to Download

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

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

<ticket ... state="good" ....>
<version="1.12.32.4">
...
<task ... a="8"/>
....
</ticket>