]>
Commit | Line | Data |
---|---|---|
7e3afbba | 1 | #!/usr/bin/perl -p |
e99ec255 | 2 | # Eleet filter, Copyright 1999,2002 by Joey Hess under the terms of the GNU GPL. |
7e3afbba | 3 | BEGIN { |
e99ec255 | 4 | # abcdefghijklmnopqrstuvwxyz |
5 | $transstring="4bcd3fgh1jklmn0pqr5tuvwxyz"; | |
6 | $t="tr/a-zA-Z/$transstring$transstring/"; | |
7e3afbba | 7 | } |
e99ec255 | 8 | s/porn/pr0n/g; |
9 | s/elite/l33t/g; | |
7e3afbba | 10 | eval $t; |
e99ec255 | 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; |