my @res = grep (/Orange/,   $xml);