diff --git a/scripts/filter-inidivual-importing-tests.pl b/scripts/filter-inidivual-importing-tests.pl
new file mode 100644
index 00000000..65e95657
--- /dev/null
+++ b/scripts/filter-inidivual-importing-tests.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use IO::All;
+use List::MoreUtils qw(none);
+
+my @m2;
+L_LOOP:
+foreach my $l (io("scripts/gen_individual_importing_tests.py")->getlines())
+{
+    if ($l =~ m/^for module_name/)
+    {
+        my @ms = $l =~ m{('pysollib\.[^']+')}g;
+        @m2 = (map { $_ =~ s/\A'//r =~ s/\'\z//r =~ tr#.#/#r } @ms);
+        last L_LOOP;
+    }
+}
+
+while (my $l = <STDIN>)
+{
+    chomp($l);
+    print "$l\n" if none { $l =~ /$_/ } @m2;
+}