Select Code to Download

my(%h,$p,$q,@k,$k,$s);

  $|=1;$"=0;for $"(1..100){for$|(1..21){$_.=chr(int(rand(26)+65));}$h{
+$_}=vp($_);$_=''}
  while (1) {@k=sort{$h{$b}<=>$h{$a}}keys %h;undef %h;for $"(1..5){pus
+h @_,$k[int rand(70)+30]}
...
  $b++ if /....................R/;
  return $b/21;
}

-----------------------------------
--the good, the bad and the physi--
-----------------------------------