#!/usr/local/bin/perl
# chew on STDIN, turning it into elite-speak
# Kees Cook 1997

select STDIN; $|=1; select STDOUT; $|=1;
while (read(STDIN,$_,1)) {
	tr/oeatlis/03\@\+\|1Z/;
	tr/OEATLIS/03\@\+\|1Z/;
	print;
}