Select Code to Download

  my $x = "x" x 50;
  substr($x, 12, 34) =~ tr[x][y];

  my %x = (a=>1, b=>2, c=>3);
  $_ *= 2 foreach values %x;