1 while $text =~ s{
    <names?> ([^<]*) </names?>
    <name>   ([^<]*) </name>
  }{<names>$1,$2</names>}gx;