$words =~ s/<[^>]+>//g;