$word[ $count ] =~ s/\'/\\\'/g;