eleet

   1 #!/usr/bin/perl -p
   2 # Eleet filter, Copyright 1999 by Joey Hess under the terms of the GNU GPL.
   3 BEGIN {
   4         $transstring="4bcd3fgh1jklmn0pqr5+uvwxyz";
   5         $t="tr/a-zA-Z/$transstring".uc($transstring)."/";
   6 }
   7 eval $t;
   8 s:h:|-|:ig;
   9 s:l:|_:ig;
  10 s:m:/\\/\\:ig;
  11 s:n:/\\/:ig;
  12 s:v:\\/:ig;
  13 s:x:><:ig;