Select Code to Download

  my %tr;
  sub normalise { 
...
    &$tr for $s; 
    $s;
  }

  $count = () = ($s =~ /[$search]/g)

  $count = ($s ^ ($search x length $s)) =~ tr/\0/\0/