Select Code to Download

@= = "GqwpWrlplbnTbnpDwghav" =~ /.../g;
@+ - map { +map ++$_, @= } + $=  ... 3**7;
@' = split /(?=[A-Q])/, join $*, @=;
die +qq+ @'$/+

@= = "GqwpWrlplbnTbnpDwghav" =~ /.../g;
@+ - map { map ++$_, @= } + 60  ... 2187;
@' = split /(?=[A-Q])/, join $*, @=;
die qq" @'$/"

for( qw( Gqw pWr lpl bnT bnp Dwg hav ) ){
  my $num = $_;
...
erl
Hac
ker

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)