Bump Standards-Version

[filters.git] / jibberish

diff --git a/jibberish b/jibberish
old mode 100644 (file)
new mode 100755 (executable)
index ad2743a..af0ea16
--- a/jibberish
+++ b/jibberish
@@ -1,30 +1,26 @@
 #!/usr/bin/perl
-# jibberish -- run all filters in random order
+# jibberish -- run filters in random order
 
 $ENV{PATH}.=":/usr/games";
 
 @all= qw(
+eleet
+b1ff
+chef
+jethro
+upside-down
+kraut
+cockney
 jive
-valspeak
+pirate
 nyc
-cockney
-fin
-biffa
 ken
-aust
-drawl
-kraut
+ky00te
+rasterman
 newspeak
-chef
-marc-barrett
+studly
 censor
-fudd
-moo
-buck
-jethro
-b1ff
-eleet
-ky00te
+spammer
 );
 
 # shuffle order
@@ -37,9 +33,9 @@ for (0..$#all) {
 }
 
 # start the pipe...
-my $pipe= join '|', @all;
+my $pipe= join '|', @all[0..3 + rand(5)];
 open FILTER, "$pipe|"
-       or die ""Never mind...\n";;
+       or die "Never mind...\n";
 
 # display the results
 while (<FILTER>) {