Help for this page

Select Code to Download


  1. or download this
    @= = "GqwpWrlplbnTbnpDwghav" =~ /.../g;
@+ - map { +map ++$_, @= } + $=  ... 3**7;
@' = split /(?=[A-Q])/, join $*, @=;
die +qq+ @'$/+
  2. or download this
    @= = "GqwpWrlplbnTbnpDwghav" =~ /.../g;
@+ - map { map ++$_, @= } + 60  ... 2187;
@' = split /(?=[A-Q])/, join $*, @=;
die qq" @'$/"
  3. or download this
    for( qw( Gqw pWr lpl bnT bnp Dwg hav ) ){
  my $num = $_;
...
erl
Hac
ker
  4. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)