Select Code to Download

$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;  ; ;g;

$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n;g;

#!/usr/bin/perl
      $a='#$%K^&*@#$!@#$!@#$#$(*^%$$#&^$#%^$%^*)*(u*#$%^#$&^%&@@^@^@$%
+^%^
...
      $%^        &(&%&$e#    !@#$%    $%^    &#@$%^&r@#$%    ^&*@#    
+$';
      $_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n
+;g;
      tr;[a-z][A-Z];[a-z] [A-Z];;my $zdog;s;([a-z])([A-Z]);$1 $2;g;pri
+nt;