Select Code to Download

if ($guess !~ /[[:alpha:]]/) {
        print "\n***Invalid letter*** (hit any key)\n"; <>;
}

use strict;
use warnings;
...
    $all_occurrences = 0;
    $guessed_word = 0;
}