Select Code to Download

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

...

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

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

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