$_ = join '', <DATA>;
while (s/<(?:\/?\w|!)[^<>]*>/ /sg) {}
s/\s+/ /g; s/^ | $//;
print;