Yet Another**2 Obfuscation Engine

[locked_user mtve]

Let's continue. Now it's /^[a-zA-Z^|]$/.

@a=grep/[^mqsvy]/,a..z,A..Z;
$a{$_}=$_ for@a;
for$i(@a){for(@a){
    $a{$i|$_}||="$i | $_";
    $a{$i^$_}||="$i ^ $_";
}}
for$i(@a){for$j(@a){
    $a{$i^$j^$_}||="$i ^ $_ ^ $j"for@a;
}}
exists$a{chr$_}or die"no $_"for 9,10,32..126;
undef$/;
$_=join'',map{
    $b=qw(| ^)[$a{$_}=~/../?$a{$_}=~/\|/:rand 2];
    $c=qw(^ |)[rand 2];
    "s $b$b $a{$_} ${b}e $c "
}reverse<>=~/./gs;
$_.="s || LZ ^ Ea ^ ad ^ L |eee";
s/((\S *){1,79})( |$)/$1\n/g;
s/ //g;
print;

Hope it's not too tiresome.

s||a^C|e^s^^n^e^s^^D|X^e^s||r|e^s||e|e^s||k|e^s^^c^e|s||a|e|s^^h^e|s||
+a^A|e|s^^
l^e^s||r|e|s||e|e^s||P|e|s||a^A|e^s||r|e^s||e|e^s||h|e|s^^t^e^s^^o^e|s
+||n|e|s||
a|e^s||a^A|e^s||t|e|s^^a|r^e|s||u|e^s||J|e^s||a^C|e|s||t|e^s^^n^e|s||i
+|e|s^^r^e
^s||p|e|s||LZ^Ea^ad^L|eee

[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