#!/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
}
# 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>) {