$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 />

##</code><code>##

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

##</code><code>##

while ($string =~ m{<name="(.*?)">(.*?)</name>}g)