diff --git a/filemin/index.cgi b/filemin/index.cgi
index 8341da80c..5ed49da38 100755
--- a/filemin/index.cgi
+++ b/filemin/index.cgi
@@ -43,7 +43,7 @@ unless (opendir ( DIR, $cwd )) {
         foreach my $aclsStr (split(/\n\n/, $output)) {
             $aclsStr =~ /#\s+file:\s*(.*)/;
             my ($file)  = ($aclsStr =~ /#\s+file:\s*(.*)/);
-            my @aclsA = ($aclsStr =~ /^(?!#)([\w:-]+)/gm);
+            my @aclsA = ($aclsStr =~ /^(?!#)([\w\:\-\_]+)/gm);
             push(@aclsArr, [$file, \@aclsA]);
         }
         %acls = map {$_->[0] => ('<span data-acls>' . join("<br>", (grep /\S/, @{ $_->[1] })) . '</span>')} @aclsArr;