diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl
index 1a2ec1597a..e8451363d3 100755
--- a/admin/auth_subfields_structure.pl
+++ b/admin/auth_subfields_structure.pl
@@ -114,8 +114,9 @@ if ($op eq 'add_form') {
 		opendir(DIR, "$cgidir/cataloguing/value_builder") || die "can't opendir $cgidir/value_builder: $!";
 	} 
 	while (my $line = readdir(DIR)) {
-		if ($line =~ /\.pl$/) {
-			push (@value_builder,$line);
+        if ( $line =~ /\.pl$/ &&
+             $line !~ /EXAMPLE\.pl$/ ) { # documentation purposes
+            push (@value_builder,$line);
 		}
 	}
         @value_builder= sort {$a cmp $b} @value_builder;
diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl
index 5261dd48c2..b12062ae62 100755
--- a/admin/marc_subfields_structure.pl
+++ b/admin/marc_subfields_structure.pl
@@ -161,7 +161,8 @@ if ( $op eq 'add_form' ) {
           || die "can't opendir $cgidir/value_builder: $!";
     }
     while ( my $line = readdir(DIR) ) {
-        if ( $line =~ /\.pl$/ ) {
+        if ( $line =~ /\.pl$/ &&
+             $line !~ /EXAMPLE\.pl$/ ) { # documentation purposes
             push( @value_builder, $line );
         }
     }