($temp, $id) = $string =~ m/(Gallus\sgallus|Chicken).*?([0-9]+)>.*?$right.*?\n/i;