#!/usr/bin/perl chomp($input = <STDIN>); $input =~ tr/[A-Z]/[a-z]/; $input =~ tr/[e,a,l,t,o,r,i]/[3,@,1,7,0,2,!]/; hey ma and dad i am speakin leet (or not?)
#!/usr/bin/perl chomp($OO0O0=<STDIN>);$OO0O0=~ tr/[A-Z]/[a-z]/;$OO0O0=~ tr/[e,a,l,t,o,r,i]/[3,@,1,7,0,2,!]/;print "$OO0O0\x0a";