Awesome
Acme::Lelek
encode/decode text to lelek code. 
use feature 'say';
my $lek = Acme::Lelek->new;
my $encoded = $lek->encode("LOL");
say "encoded : $encoded";
say "original: " . $lek->decode($encoded);
will output:
encoded : AH Le lEk Lek lek lEK LEK LeK leK lEK
original: LOL