Code: #!/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,!]/; print "$input\n";
you guys STILL arent getting leetspeak correctly... god damn you n00bs... take a course in leetspeak before you make a fool of yourself. =p
Code: #!/usr/bin/perl[/b][/i] [i][b]chomp($input = <STDIN>);[/b][/i] [i][b]$input =~ tr/[A-Z]/[a-z]/;[/b][/i] [i][b]$input =~ tr/[e,b,a,l,t,s,o,r,i]/[3,8,4,1,7,5,0,2,!]/;[/b][/i] [i][b]print "$input\n"; get it right newb.