use strict;
my $str_xml='<xml>
<email>toto@foo.com</email><name>Toto</name>
<email>tata@bar.com</email><name>Tata</name>
<email>tutu@baz.com</email><name>Tutu</name>
</xml>';

my @email = ($str_xml =~ /<email>(.*?)<\/email>/g);
my @name = ($str_xml =~ /<name>(.*?)<\/name>/g);

print "email: @email\n";
print "name: @name\n";