#!perl

while () {
s/([A-Za-z_]\w+=)([^\"][^\s>]+)([\s>])/$1"$2"$3/g;
print;
}