eleet

   1 #!/usr/bin/perl -p
   2 # Eleet filter, Copyright 1999,2002 by Joey Hess under the terms of the GNU GPL.
   3 BEGIN {
   4         #             abcdefghijklmnopqrstuvwxyz
   5         $transstring="4bcd3fgh1jklmn0pqr5tuvwxyz";
   6         $t="tr/a-zA-Z/$transstring$transstring/";
   7 }
   8 s/porn/pr0n/g;
   9 s/elite/l33t/g;
  10 eval $t;
  11
  12 # These are not in common usage anymore.
  13 #s:h:|-|:ig;
  14 #s:l:|_:ig;
  15 #s:m:/\\/\\:ig;
  16 #s:n:/\\/:ig;
  17 #s:w:\\/\\/:ig;
  18 #s:v:\\/:ig;
  19 #s:x:><:ig;