Index: misc/regexfilter.pl
===================================================================
--- misc/regexfilter.pl	(revision d79589accd6fc8bab3b3d339a47b968b15e09015)
+++ misc/regexfilter.pl	(revision 5a32926376110896f3f22c1bcb99c9c9d7d36fea)
@@ -17,5 +17,5 @@
 }
 
-my $re = Regexp::Assemble->new(file => "$regexfile");
+my $re = Regexp::Assemble->new(file => "$regexfile", track => 1);
 
 my $target = shift @ARGV;
@@ -39,4 +39,8 @@
         print "NG: ";
     }
-    print $line, "\n";
+    print $line;
+    if ($re->source) {
+        print " /", $re->source, "/";
+    }
+    print "\n";
 }