diff -up a/x2p/find2perl.PL b/x2p/find2perl.PL
--- a/x2p/find2perl.PL	2010-12-30 03:07:17.000000000 +0100
+++ b/x2p/find2perl.PL	2012-05-29 10:18:11.697683643 +0200
@@ -681,7 +681,8 @@ sub tab () {
 sub fileglob_to_re ($) {
     my $x = shift;
     $x =~ s#([./^\$()+])#\\$1#g;
-    $x =~ s#([?*])#.$1#g;
+    $x =~ s#\*#.*#g;
+    $x =~ s#\?#.#g;
     "^$x\\z";
 }