well, I consider a word like dog's, or cat's a 4 letter word, but my script doesn't seem to

Nope, it sure doesn't. Consider your code that picks out the 4 letter words:

push @gt_three_char_words, $_ if /[a-zA-Z]{4,}/;
[download]

What types of characters "count" when they're counted this way?