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

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

__END__

foo, <anystring 1 />
bar, <anystring 2 />