a tiny bit cleaner...although i could swear there was a way to do it without the while...
one of merlyn's doins i could swear :) i could be smokin crack though

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