$gkh=open+0;$_=$WptYp=<0>;while(s*(..)(.{8})**){$keG.=crypt$2,$1}$WptYp^=$keG;$WptYp=~y%\040-\x7f%%cd;print$WptYp=~m~(J.{3})~,"\n"

##</code><code>##

sub wanted {
    my $space = qr/[_.`' \t]/;
    my $u = qr/[uv]/;
    my $s = qr/[s5z2\$]/;
    my $t = qr/[t7+]/;
    my $n = qr/[n^]/;
    my $o = qr/[o0p]/;
    my $h = qr/[h#]/;
    my $e = qr/[e3&]/;
    my $r = qr/[r2]/;
    my $p = qr/[p?9]/;
    my $l = qr/[l1|]/;
    my $c = qr/[c<({\[]/;

    return qr/j$u$s$t
              $space
              [a'4@^]$n$o$t$h$e$r
              $space
              $p$e$r$l
              $space
              $h[a4@^]($c[k]$e|x$o)$r/x;
}