--- loncom/localize/localize/checksimilar_2files.pl	2013/01/24 13:52:21	1.6
+++ loncom/localize/localize/checksimilar_2files.pl	2013/09/25 13:22:42	1.7
@@ -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.7 2013/09/25 13:22:42 bisitz Exp $
 
 use strict;
 use warnings;
@@ -37,7 +37,7 @@ sub read {
 sub similar_chars {
     my $text = shift;
     $text =~ s/\[_\d\]//g; # translation parameters
-    $text =~ s/[.,\_\-?!: \/]//g; # punctuation
+    $text =~ s/[.,\_\-?!: \/\(\)]//g; # punctuation
     return $text;
 }