An update of tested code to previously untested code...

#!/usr/local/bin/perl

use warnings;
use strict;

#  An naive attempt to cross translate between '3133+' speak & readabl
+e
#  enough English.
#
#  English conversion is bound to have gross spelling errors.  No doub
+t,
#  it sure could use some additions in $letter, $group and $word.
#  Spelling check and soundex related modules could also be brought in
#  to produce even more readable language.


#  Set to a true value if converting from '3133+' to 'elite'
my $reverse = 1;

#  Mapping
our
 ( $word
 , $group
 , $letter
 );

if ( $reverse )
{ transform_hash( $_ )
    foreach $word , $group , $letter;
}

while ( my $line = <> )
{
  replace_word( $line , $word );

  foreach my $map ( $group , $letter )
  {
    foreach my $k ( keys %{$map} )
    {
      foreach my $el ( @{ $map->{$k} } ) { $line =~ s/\Q$k/$el/gi; }
    }
  }
  print $line;
}

BEGIN
{ our $word =
    { 'hacker' => [ qw( haxor ) ]
    , 'for'    => [ qw( 4     ) ]
    };

  our $group =
    { 'orn' => [ qw( r0n 0rn ) ]
    };

  our $letter =
    { 'a' => [ qw( 4  @       ) ]
    , 'c' => [ qw/ (          / ]
    , 'd' => [ qw/ |)         / ]
    , 'e' => [ qw( 3          ) ]
    , 'h' => [ qw( |-|        ) ]
    , 'i' => [ qw( 1          ) ]
    , 'l' => [ qw( 1  |_      ) ]
    , 'm' => [ qw( |V|  |\\/| ) ]
    , 'n' => [ qw( |\\|       ) ]
    , 'o' => [ qw( 0          ) ]
    , 's' => [ qw( 5          ) ]
    , 't' => [ qw( 7  +       ) ]
    , 'w' => [ qw( \\/\\/     ) ]
    } ;
}

sub replace_word
{ my ($line , $map) = @_;

  foreach my $k ( keys %{$map} )
  { foreach my $word  ( @{ $map->{$k} } )
    {
      # Needs better right word boundary than '\s' or '\b'.  For examp
+le,
      # it would fail to convert '4' at the end of a sentence to 'for'
+.
      $line =~ s/ \b $k (?=\s) /$word/gix;
    }
  }
  $_[0] = $line;
}

sub transform_hash
{ my $hash = shift;
  foreach my $k ( keys %{$hash} )
  {
    foreach my $v ( @{ $hash->{$k} } ) { $hash->{$v} = [$k]; }
    delete $hash->{$k};
  }
}
[download]

Input: 4ny h31p w17h the tr4n514710n 45p3c75 w0u1d b3 4ppr3c14t3d, 4s w0u1d 4ny 5ugg35710n5.

Output: any heip with the transiation aspects wouid be appreciated, as wouid any suggestions.

Input: 45 \/\/45 4|_r34|)y p01|\|+3d @u7, +|-|3Re 15 @ |\/|0|)u1e +h@t c4|\| do0 7h1s 4 y0o. T|-|Er3 1s |\/|u(h m0r3 y0u c@|\| |)0 +o t3X+ t|-|4n 51mp73 r3p7@ce|\/|en+5.

Output: as was already pointed aut, theRe is a moduie that can doo this for yoo. ThEre is much more you can do to teXt than simpte reptacements.

  - Parv