Select Code to Download

use Data::Dump;
use XML::Simple;
dd XMLin('document.xml');

{
  latin_name => "Fraxinus Excelsior",
...
           ],
  },
}

#!/usr/bin/env perl

...
    </uses>
</root>
EOX