sub clean {
my ($words) = @_;
print "WordsBefore: $words \n";
$word =~ s/<[^>]+>//g;
print "WordsAfter: $words \n";
return $words;
}