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