diff --git a/scripts/gpu_table_tester b/scripts/gpu_table_tester
index 76994da1aa555239be0f803d29e521a0a78f900d..6989e6f9680a00e77c4059e4e830da0bb531ce58 100755
--- a/scripts/gpu_table_tester
+++ b/scripts/gpu_table_tester
@@ -175,6 +175,7 @@ my %RecognizedBy;
 while (<>) 
 {
     chomp;
+    $_ = substr($_,0,100);
     my $lcInput = lc $_;  # the real gpu table parser lowercases the input string
     my $recognizer;
     $RecognizedBy{$_} = $NoMatch;