in reply to Something's awry in my regex...
while ($text =~ s/>\s+([\w\-]*?)\=([\w\-\"]*)\,?/ $1\=$2>/ixs) {} [download]
while ($test =~ s/>\s*([\w-]*?="[\w-]*?"),?/ $1>/s) {} [download]