while ( $target_letters !~ /^[a-z]{$Word_Length}$/i ) {
      ...