view release on metacpan or  search on metacpan

lib/Acme/L337.pm  view on Meta::CPAN

package L337;

use strict;

sub translate($string) {
   # Common leet
   my $tempstring;
   $tempstring =~ "tr/[i,I]/!";
   $tempstring =~ "tr/[t,T]/7";
   $tempstring =~ "tr/[e,E]/3";
   $tempstring =~ "tr/[S,s]/5";
   $tempstring =~ "tr/[l,L]/1";
   $tempstring =~ "tr/[B,b]/8";
   $tempstring =~ "tr/[Z,z]/2";
   $tempstring =~ "tr/[A,a]/4";