--- loncom/localize/localize/checksimilar_2files.pl	2013/01/24 13:52:21	1.6
+++ 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.6 2013/01/24 13:52:21 bisitz Exp $
+# $Id: checksimilar_2files.pl,v 1.8 2013/12/20 14:27:54 bisitz Exp $
 
 use strict;
 use warnings;
@@ -36,8 +36,9 @@ sub read {
 
 sub similar_chars {
     my $text = shift;
+    $text =~ s/<\/*\w+ *\/*>//g; # HTML tags
     $text =~ s/\[_\d\]//g; # translation parameters
-    $text =~ s/[.,\_\-?!: \/]//g; # punctuation
+    $text =~ s/[.,\_\-?!: \/\(\)]//g; # punctuation
     return $text;
 }