#!/usr/local/bin/perl
# Time-stamp: "1998-11-06 20:40:27 MST" -*-perl-*-

if(grep m<^->s, @ARGV) { print <DATA>; exit }
while(<>) {
  $_ = lc;
  s[\byou\b] [U]g;
      s[s\b] [z]g;
        s[o] [ int(rand(3)) >  2 ?  '0'  : 'o' ]eg;
        s[i] [ int(rand(5)) >= 2 ?  '1'  : 'i' ]eg;
        s[l] [ int(rand(3)) == 1 ?  '|'  : 'l' ]eg;
        s[e] [ int(rand(5)) >= 3 ?  '3'  : 'e' ]eg;
  s[\band\b] [ int(rand(2)) == 1 ? 'and' : '&' ]eg;
  print;
}

__DATA__

*** The Lamer Filter, Version 2.8p
*** by zorgo <zorgo@gnu.ai.mit.edu>
*** Perl translation by TorgoX <sburke@netadventure.net>, 1998-11-06
***
*** Usage:
***   Starting LAME with no arguments will put it in continuous lamerize mode.
***      Use Control-D or Control-C to quit.
***   Starting LAME with arguments will lamerize everything on
***      the command line, and then quit.
***
***   To lamerize a text file:
***      Unix:   cat in_file | lame.pl > out_file
***      MSDOS:  type in_file | lame.pl > out_file
***
***   To be lame in real time on IRC (ircII only):
***      /alias l /exec -out lame.pl "$0-"
***      /l text_to_be_lamerized

