$text =~ s/>\s?([\w\-]*?)\=([\w\-\"]*?)\,?/ $1\=$2>/gixs;