#!/usr/bin/perl -p

# Name: l33t
# Version: 0.2.0 "Public Beta"
# Description: ASCII text filter (so-called elite slang)
# Copyright: 2004 Lja MultiMedia
# Licence: May be used under the GNU GPL
# Maintainer: Levi <levi@gis.net>
# Special Thanx: Teknokrazy <teknokrazy@teknokrazy.com>

# Change Log
#  0.2.0 - Beta Release by Levi.
#  0.1.0 - Alpha hacking by Teknokrazy.
#  0.0.0 - Inital proof of concept by Levi.

BEGIN
{
   $alphabet="\@bcd3fgh1jklmn0pqr57uvwxyz";
   $convert="tr:a-zA-Z:$alphabet".uc($alphabet).":"
}

eval $convert;
s:y0u:j00:gi;		# you - j00
s:\@r3:r:gi;		# are - r	
s:j00 r:u r:gi;		# you are - u r
s:j00r:ur:gi;		# your - ur
s:j00'r3:ur:gi;		# you're - ur
s:1 \@m:i r:gi;		# I am - i r
s:qu:kw:gi;		# qu - kw
s:5 :z :gi;		# s (at end of word) - z
s:l0v3:luv:gi;		# love - luv
s:\@73:8:gi;		# ate - 8
s:\@ny:ne:gi;		# any - ne
s:0n3:1:gi;		# one - 1
s: b3: b:gi;		# be - b
s:f0r3:4:gi;		# fore - 4
s: y0 : j0 :gi;		# yo - j0
s:w\@5:wuz:gi;		# was - wuz
s:wh\@7:wut:gi;		# what - wut
s:wh\@7'?z? up:'sup:gi;	# what (whats what's) up - 'sup
s:w\0rd:w3rd:gi;	# word - w3rd
s: 700?: 2:gi;		# to - 2
s:n1gh7:n1t3:gi;	# night - nite
s:c0mpu73r:b0x:gi;	# computer - b0x
s:b0x5:b0x3n:gi;	# computers - b0x3n
s:n3wb13:n00b:gi;	# newbie - n00b

# Stewardess: "Does anyone here speak elite?"
# Hacker:     "j0."
#                               -- Mega Tokyo