#!/usr/bin/perl
use strict;
use warnings;

#829607

=head
The idea was to get two lines like:
foo, <anystring 1 />
bar, <anystring 2 />

=cut

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

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