$_ = 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;