Yet Another**3 Obfuscation Engine

[locked_user mtve]

And another one, /^[a-zA-Z ^]$/.

@a=(a..x,A..Z,' ');
for$i(@a){for$j(@a){
    push@{$a{$i^$j^$_}},[$i,$j,$_]for@a
}}
exists$a{chr$_}or die"no $_"for 9,10,32..126;
undef$/;
$_=<>;
for(/./sg){
    $c=$a{$_}[rand @{$a{$_}}];
    $b[$_].=$c->[$_]for 0..2
}
while(/.{1,67}/sg){
    print"s zzq y",
        join("y\n   ^q y",map{substr$_,y///c-$+[0],$+[0]-$-[0]}@b),
        "yze x\n"
}
print"eval\n"

Enjoy.

s zzq yhZrRQ DrjR prVsHIa tSRMekflQxvhI y
   ^q yrnTLceZoMldulZjAnkXqYOreUmwmUhfcay
   ^q yjFOpFgThTJddpcmaBxXUooS VjxWHlRDcyze x
eval