diff --git a/Utils/gen-list-unimplemented-cards-for-set.pl b/Utils/gen-list-unimplemented-cards-for-set.pl
index fbf345bf31d..560f76812f1 100755
--- a/Utils/gen-list-unimplemented-cards-for-set.pl
+++ b/Utils/gen-list-unimplemented-cards-for-set.pl
@@ -82,7 +82,7 @@ sub cardSort {
 sub toCamelCase {
     my $string = $_[0];
     $string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
-    $string =~ s/[-,\s\'!@#*\(\)]//g;
+    $string =~ s/[-,\s\'\.!@#*\(\)]//g;
     $string;
 }