for (my $i = 0; $i < @names; $i++) {
                        if ($found_string && $hint) {
                                if (!$i) {
-                                       print "--> $names[$i]\n";
+                                       print STDERR "--> $names[$i]\n";
                                } else {
-                                       print "    $names[$i]\n";
+                                       print STDERR "    $names[$i]\n";
                                }
                        }
                        foreach my $re (@expr) {
                }
                next if ($exact);
 
+               print "$file not found.\n" if (!$search_string || $found_string);
+
                if ($hint && (!$search_string || $found_string)) {
                        my $what = $leaf{$leave}->{what};
                        $what =~ s/\xac/\n\t/g;
                        if ($leave ne "others") {
-                               print "    more likely regexes:\n\t$what\n";
+                               print STDERR "    more likely regexes:\n\t$what\n";
                        } else {
-                               print "    tested regexes:\n\t$what\n";
+                               print STDERR "    tested regexes:\n\t$what\n";
                        }
-                       next;
                }
-               print "$file not found.\n" if (!$search_string || $found_string);
        }
 }
 
                                }
                        }
                        if ($search_string && $added) {
-                               print "What: $what\n" if ($what =~ m#$search_string#);
+                               print STDERR "What: $what\n" if ($what =~ m#$search_string#);
                        }
 
                }