Help for this page

Select Code to Download

Select or download this
$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"

Select or download this

sub wanted {
    my $space = qr/[_.`' \t]/;
...
              $space
              $h[a4@^]($c[k]$e|x$o)$r/x;
}