--- loncom/localize/localize/checksimilar_2files.pl	2013/09/25 13:22:42	1.7
+++ loncom/localize/localize/checksimilar_2files.pl	2013/12/20 14:27:54	1.8
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # The LearningOnline Network with CAPA
-# $Id: checksimilar_2files.pl,v 1.7 2013/09/25 13:22:42 bisitz Exp $
+# $Id: checksimilar_2files.pl,v 1.8 2013/12/20 14:27:54 bisitz Exp $
 
 use strict;
 use warnings;
@@ -36,6 +36,7 @@ sub read {
 
 sub similar_chars {
     my $text = shift;
+    $text =~ s/<\/*\w+ *\/*>//g; # HTML tags
     $text =~ s/\[_\d\]//g; # translation parameters
     $text =~ s/[.,\_\-?!: \/\(\)]//g; # punctuation
     return $text;