fudd

   1 #!/usr/bin/perl -p
   2 # Elmer Fudd. GPL 2001 by Joey Hess <joey@kitenet.net>
   3 s/[rl]/w/g;
   4 s/qu/qw/g;
   5 s/th\b/f/g;
   6 s/th\B/d/g;
   7 s/n\./n, uh-hah-hah-hah. /g;
   8 s/[RL]/W/g;
   9 s/Qu/Qw/g;
  10 s/QU/QW/g;
  11 s/TH\b/F/g;
  12 s/TH\B/D/g;
  13 s/Th/D/g;
  14 s/N\./N, uh-hah-hah-hah./g;