use Crypt::1337; my $enc = to_1337("This is a test, later\n"); print $enc; my $unenc = from_leet($enc); print $unenc;