#!/usr/local/bin/perl # Time-stamp: "1998-11-06 20:40:27 MST" -*-perl-*- if(grep m<^->s, @ARGV) { print ; 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 *** Perl translation by TorgoX , 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