my %stuff = $xml =~ m/(\w+)>([^<]+)</g;