@= = "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 = $_; #for( 60 ... 2187 ){ $num = ++$num } # the above changed to the below to "deobfuscate" the deobfuscation. for( 60 .. 2187 ){ $num++; } push( @array, $num ); } print "$_\n" for @array; OUTPUT: Jus tAn oth erP erl Hac ker #### s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)