$string = "<name=\"foo\"><anystring 1 /></name><name=\"bar\"><anystring 2 /></name>";

while ($string =~ m/<name=\"(.*)\">(.*)<\/name>/g)
	{ print "$1, $2\n"; }