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; |