while ($text =~ s/>\s+([\w\-]*?)\=([\w\-\"]*)\,?/ $1\=$2>/ixs) {}