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