a basic 1337 encoder

leet.pl

#!/usr/bin/perl

print "\n(c) zeron \n";
print "1337 encoder";

%enc = ('a','@','b','%','c','[','d','*','e','$','f','PH','g','9','h','H','i','
L','l','j','_|','k','k','l','|_','n','|\|','o','0','r','|2','s','@','t','+','v','V','w','VV','x','<>','z','2','A','4','B','B','C','[','D','|}','E','3','F','P','G','6','H','|-|','I','|','J','_|','K','
|<','L','|_','M','|v|','N','n','O','O','P','r','Q','q','R','|2','S','$','T','7','U','U','V','u','W','e','X','<>','Y','%','Z','2','1','l','2','z','3','3','4','@','5','$','6','G','7','t','8','b','9','g');

print "\n Enter your phrase:";
chomp($input = <STDIN>);
print "input: $input\n";
print "output: ";
foreach $output (split(//,$input))
{$output = $enc{$output}
      if (defined($enc{$output}));
print $output;
}
print "\nProtectron Protectsoft.\n";