obfuscated
oha
playing with self-reference eval-ed code:
<c>
$_ = 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;
</c>
which is an evolution of
<c>
perl -we '$_=q\s/.(?{$x++%4||$x++})//g;print$x\;eval;'
</c>
i posted early on CB.<p>
<spoiler>
the last eval evaluate $_ code which works on $_ itself. the s/// will look for some letters preceded by non-word, and append it to a buffer. the buffer is tr-anslated and printed.<p>
A pity the rest of the code is useless, but it works! maybe one day i will work on something which not only "grab" some chars, but transform $_ to get JAPH.
</spoiler>
Oha
<p>