#!/usr/bin/perl
-# jibberish -- run all filters in random order
+# jibberish -- run filters in random order
$ENV{PATH}.=":/usr/games";
kraut
cockney
jive
+pirate
nyc
ken
ky00te
rasterman
newspeak
studly
+censor
+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>) {