self-reference eval

[oha]

playing with self-reference eval-ed code:

$_ = q|do{
$x=\$j unless s/(?<=[^t\w])([a-nb-vw])/$$x.=$1 or $2;/xge;
$$x=~tr/bwhvd/h /d;
!exists $r{w} && print $$x.$/;
exit && redo && last;
} while(binmode $a);
crypt(keys %every, "redo");
|; eval;

which is an evolution of

perl -we '$_=q\s/.(?{$x++%4||$x++})//g;print$x\;eval;'

i posted early on CB.

<Reveal this spoiler or all in this thread>

Oha