diff --git a/bin/g b/bin/g
index 33460f8b..07d4ec36 100755
--- a/bin/g
+++ b/bin/g
@@ -30,8 +30,8 @@ case $# in
 	;;
 1)
 	pattern="$1"
-	files=`/bin/ls *.[bcChlmy] *.cc *.lx *.py *.tex *.ms *.java *.xy 2>/dev/null |
-		9 grep -v '\.tabx?\.[ch]$'`
+	files=`/bin/ls *.[bcChlmy] *.cc *.lx *.cgi *.pl *.py *.tex *.ms *.java *.xy 2>/dev/null |
+		9 grep -v '\.tab?\.[ch]$'`
 	;;
 *)
 	pattern="$1"