Select Code to Download

while ($current{word} =~ /$letter/g) {
  substr $current{revealed}, $-[0], 1, $letter;
}