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